19.7k Aufrufe
Gefragt in WindowsXP von exceluser91 Mitglied (103 Punkte)
Hallo und feinen Nachmittag zusammen,

ich bin derzeit in der Arbeit als Werkstudent mit einem Project involviert.
Excel!

Um einen schnelleren Arbeitsfluss zu ermöglichen, sollten manche Vorgänge per Makros funktionieren..
Jetzt zu der Aufgabe und ich hoffe ihr könnt mir helfen sonst, bin ich verloren^^

1. Jedes Monat werden aus einer txt datei ( monatl. wird eine neue txt datei angelegt) die Daten in eine Excel-datei eingelesen.
kann man dafür ein Makro erstellen?


2. Die Lasche "Tabelle 1" sollte sich per Makro in "Reichweite" umändern lassen, ebenso sollte gleichzeitig dann eine neue Lasche mit Titel "Summe" zusätzlich hinzugefügt werden.

3, Per Makro: Aus der oben genannten txt (oder aus der fertig importierten) müssen dann, alle Zeilen ausgeschnitten, welche in der Spalte C "Summe" stehen haben und in das erstellte Tabellenblatt "Summe" eingefügt werden.

4. Per Makro würde ich dann gerne alle leeren Zeilen, sowie Zeilen
welche doppelt genannt werden löschen, außer in der ersten Zeile, Quasi eine Doppelnennung dieser Zeile vermeiden!

Test Inventur: Reichweiten-/Abwertsatzermittlung 02.10.2012 10:59:25 Seite: 2

das 5. und letzte Makro

a)Spalte einfügen in das erste Tabellenblatt mit dem Namen "Dispo_Name"
b) Spalte löschen WFG


Ob mir hier jmd helfen kann, das wäre der Knüller!
Leider habe ich erst ab kommenden März eine Excel spezifische Weiterbildung in meiner Uni.. und leisten kann ich Sie mir bis dato schwer!
Vielen vielen Dank im voraus und ich freue mich über jede produktive Antwort!

Viele Grüße
Ben

81 Antworten

0 Punkte
Beantwortet von exceluser91 Mitglied (103 Punkte)
Hallo nochmal,

das ist es eben
ich braeuchte nur die Zeilen (in diesem Fall, sonst immer unterschiedlich)
28-39 herausgeschnitten und in die Lasche Summe eingetragen.

__________________

A2P:Z0MIN110 Inventur: Reichweiten-/Abwertsatzermittlung 02.10.2012 10:59:25 Seite: 2

und diese Zeile

Dis WFG Material Bezeichnung Werk IGr Bestand Verbrauch AG HGB IFRS Erf.Datum
AS HB.vor Abschr Abwertung TR AS EWB Abwertung


soll nur in der ersten Zeilen 1x stehen, sonst sollte es immer gelöscht werden!
Quasi wenn die Zeile mit: A2P:Z0MIN110 beginnt, alle löschen außer zeile 1

Die anderen Daten sollten alle einfach bleiben und komprimiert werden ohne Lücken, lasse dich nicht von der Summe in den oberen Zeilen verwirren, diese sollten auch darin bleiben
nur der untere Teil, eben ab 28 sollte ausgeschnitten werden.

genauso sollen die zeilen wo nur die "-------" eingetragen sind wie auch leere Zeilen einfach gelöscht werden, hoffe ich habe das jetzt verständlich rübergebracht :)

Viele Grüße
0 Punkte
Beantwortet von m-o Profi (22.9k Punkte)
Hallo Benjamin,

ich habe mal ein Makro zusammengebastelt, dass die Daten kopiert und löscht, so wie ich es verstanden habe.
Kopiere das Makro in ein allgemeines Modul und probiere es mal in einer Testdatei aus. Die einzufügende Spalte "Dispo_Name" kannst du ja selbst anpassen, da du nicht geschrieben hast, wo die Spalte eingefügt werden soll:

Sub tabelle_bearbeiten()

Dim blatt As String
Dim anfang, ende, i, zeile, lzeile, slzeile As Integer
Dim bExists As Boolean

'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False

blatt = "Reichweite"

'aktives Blatt in Reichweite umbenennen
'Prüfen, ob Arbeitsblatt Arbeitsblatt existiert
For i = 1 To Sheets.Count
If Sheets(i).Name = "Reichweite" Then
MsgBox "Achtung! Ein Arbeitsblatt Reichweite existiert schon! Abbruch!", vbOKOnly, "Fehler"
Exit Sub
End If
Next i

'aktives Blatt wird umbenannt
ActiveSheet.Name = blatt

'Prüfen, ob Arbeitsblatt Summe existiert
For i = 1 To Sheets.Count
If Sheets(i).Name = "Summe" Then
bExists = True: Exit For
Else
bExists = False
End If
Next i

'Arbeitsblatt mit Namen Summe wird erstellt, falls es nicht existiert
'und an 1. Stelle eingefügt
If bExists = False Then
With Worksheets.Add(Sheets(1))
.Name = "Summe"
End With
End If

'es wird wieder auf das Arbeitsblatt Reichweite gewechselt
Sheets(blatt).Activate

'Überschriften in Tabellenblatt "Summe" kopieren
Sheets(blatt).Range(Cells(2, 1), Cells(5, 1)).EntireRow.Copy Destination:=Worksheets("Summe").Cells(1, 1)

'letzte Zeile im Arbeitsblatt "Reichweite" ermitteln
lzeile = Worksheets(blatt).UsedRange.SpecialCells(xlCellTypeLastCell).Row

'überflüssige Überschriften im Blatt Reichweite löschen
For zeile = 6 To lzeile
If Left(Sheets(blatt).Cells(zeile, 1).Value, 3) = "Dis" Then
Sheets(blatt).Range(Cells(zeile - 3, 1), Cells(zeile + 2, 1)).EntireRow.Delete xlShiftUp
End If
Next zeile

'Suchen wo Summenbildung anfängt
'letzte Zeile im Arbeitsblatt mit Daten wird neu ermitteln
lzeile = Worksheets(blatt).UsedRange.SpecialCells(xlCellTypeLastCell).Row

'Zeilen suchen, in der "Summe" oder "Gesamtsumme" steht
For zeile = lzeile To 6 Step -1
If Left(Sheets(blatt).Cells(zeile, 3).Value, 5) = "Summe" And Sheets(blatt).Cells(zeile, 11).Value = 0 Then anfang = zeile
If Left(Sheets(blatt).Cells(zeile, 3).Value, 11) = "Gesamtsumme" Then ende = zeile
Next zeile

'nun werden erst einmal die Zeilen mit Summe kopiert - außer den eben gefundenen
'letzte beschriebene Zeile im Arbeitsblatt Summe ermitteln und um 1 erhöht
slzeile = Worksheets("Summe").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1

For zeile = 6 To anfang - 1
If Left(Sheets(blatt).Cells(zeile, 3).Value, 5) = "Summe" Then
'gefundener Bereich mit Summen wird kopiert
Sheets(blatt).Rows(zeile).EntireRow.Copy Destination:=Worksheets("Summe").Cells(slzeile, 1)
slzeile = slzeile + 1
End If
Next zeile

'nun wird der letze Summenblock kopiert und gelöscht
With Sheets(blatt).Range(Cells(anfang, 1), Cells(ende, 1))
.EntireRow.Copy Destination:=Worksheets("Summe").Cells(slzeile, 1)
.EntireRow.Delete xlShiftUp
End With

'Zellen mit Summe werden nun gelöscht
For zeile = 6 To anfang - 1
If Left(Sheets(blatt).Cells(zeile, 3).Value, 5) = "Summe" Then Sheets(blatt).Rows(zeile).EntireRow.Delete xlShiftUp
Next zeile

'Löschen von leeren Zeilen

'letzte Zeile im Arbeitsblatt mit Daten wird neu ermitteln
lzeile = Worksheets(blatt).UsedRange.SpecialCells(xlCellTypeLastCell).Row

For zeile = lzeile To 6 Step -1
'Hier wird der Arbeitsbereich angegeben: Spalten A bis S
With Sheets(blatt).Range(Cells(zeile, 1), Cells(zeile, 19))
If Application.WorksheetFunction.CountBlank(.Cells) = .Cells.Count Then
Rows(zeile).Delete
End If
End With
Next zeile

'Spalte WFG in Blatt Summe löschen
For i = 1 To Sheets("Summe").UsedRange.SpecialCells(xlCellTypeLastCell).Column
If Left(Sheets("Summe").Cells(2, i), 3) = "WFG" Then Sheets("Summe").Columns(i).Delete Shift:=xlToLeft
Next i

'Spalte Dispo_Name wird als Spalte F eingefügt
Sheets("Summe").Columns("F:F").Insert Shift:=xlToRight

'Überschrift wird eingefügt
Sheets("Summe").Range("F2") = "Dispo_Name"

'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True

End Sub


Gruß

M.O.
0 Punkte
Beantwortet von m-o Profi (22.9k Punkte)
Hallo Benjamin,

habe mir gerade eben noch mal deinen Beitrag durchgelesen. Da steht ja drin, dass die Summen im oberen Bereich nicht kopiert und gelöscht werden sollen.
Hier also das geänderte Makro:

Sub tabelle_bearbeiten()

Dim blatt As String
Dim anfang, ende, i, zeile, lzeile, slzeile As Integer
Dim bExists As Boolean

'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False

blatt = "Reichweite"

'aktives Blatt in Reichweite umbenennen
'Prüfen, ob Arbeitsblatt Arbeitsblatt existiert
For i = 1 To Sheets.Count
If Sheets(i).Name = "Reichweite" Then
MsgBox "Achtung! Ein Arbeitsblatt Reichweite existiert schon! Abbruch!", vbOKOnly, "Fehler"
Exit Sub
End If
Next i

'aktives Blatt wird umbenannt
ActiveSheet.Name = blatt

'Prüfen, ob Arbeitsblatt Summe existiert
For i = 1 To Sheets.Count
If Sheets(i).Name = "Summe" Then
bExists = True: Exit For
Else
bExists = False
End If
Next i

'Arbeitsblatt mit Namen Summe wird erstellt, falls es nicht existiert
'und an 1. Stelle eingefügt
If bExists = False Then
With Worksheets.Add(Sheets(1))
.Name = "Summe"
End With
End If

'es wird wieder auf das Arbeitsblatt Reichweite gewechselt
Sheets(blatt).Activate

'Überschriften in Tabellenblatt "Summe" kopieren
Sheets(blatt).Range(Cells(2, 1), Cells(5, 1)).EntireRow.Copy Destination:=Worksheets("Summe").Cells(1, 1)

'letzte Zeile im Arbeitsblatt "Reichweite" ermitteln
lzeile = Worksheets(blatt).UsedRange.SpecialCells(xlCellTypeLastCell).Row

'überflüssige Überschriften im Blatt Reichweite löschen
For zeile = 6 To lzeile
If Left(Sheets(blatt).Cells(zeile, 1).Value, 3) = "Dis" Then
Sheets(blatt).Range(Cells(zeile - 3, 1), Cells(zeile + 2, 1)).EntireRow.Delete xlShiftUp
End If
Next zeile

'Suchen wo Summenbildung anfängt
'letzte Zeile im Arbeitsblatt mit Daten wird neu ermitteln
lzeile = Worksheets(blatt).UsedRange.SpecialCells(xlCellTypeLastCell).Row

'Zeilen suchen, in der "Summe" oder "Gesamtsumme" steht
For zeile = lzeile To 6 Step -1
If Left(Sheets(blatt).Cells(zeile, 3).Value, 5) = "Summe" And Sheets(blatt).Cells(zeile, 11).Value = 0 Then anfang = zeile
If Left(Sheets(blatt).Cells(zeile, 3).Value, 11) = "Gesamtsumme" Then ende = zeile
Next zeile

'letzte beschriebene Zeile im Arbeitsblatt Summe ermitteln und um 1 erhöht
slzeile = Worksheets("Summe").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1

'nun wird der letze Summenblock kopiert und gelöscht
With Sheets(blatt).Range(Cells(anfang, 1), Cells(ende, 1))
.EntireRow.Copy Destination:=Worksheets("Summe").Cells(slzeile, 1)
.EntireRow.Delete xlShiftUp
End With

'Löschen von leeren Zeilen

'letzte Zeile im Arbeitsblatt mit Daten wird neu ermitteln
lzeile = Worksheets(blatt).UsedRange.SpecialCells(xlCellTypeLastCell).Row

For zeile = lzeile To 6 Step -1
'Hier wird der Arbeitsbereich angegeben: Spalten A bis S
With Sheets(blatt).Range(Cells(zeile, 1), Cells(zeile, 19))
If Application.WorksheetFunction.CountBlank(.Cells) = .Cells.Count Then
Rows(zeile).Delete
End If
End With
Next zeile

'Spalte WFG in Blatt Summe löschen
For i = 1 To Sheets("Summe").UsedRange.SpecialCells(xlCellTypeLastCell).Column
If Left(Sheets("Summe").Cells(2, i), 3) = "WFG" Then Sheets("Summe").Columns(i).Delete Shift:=xlToLeft
Next i

'Spalte Dispo_Name wird als Spalte F eingefügt
Sheets("Summe").Columns("F:F").Insert Shift:=xlToRight

'Überschrift wird eingefügt
Sheets("Summe").Range("F2") = "Dispo_Name"

'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True

End Sub


Gruß

M.O.
0 Punkte
Beantwortet von exceluser91 Mitglied (103 Punkte)
Hallo M.O.
leider komme ich mit deinem letzteren Code nicht zurecht,
schon alleine dadurch, weil ich alle diese Makros einzeln brauche, wie hier dargestellt.
wenn ich nach dem Datenimport, dein Makro verwende kommt der Lauftzeitfehler 1004



Sub Reichweite()
If ActiveSheet.Name <> "Datentabelle" Then
ActiveSheet.Name = "Reichweite"
End If
End Sub

Sub Summetabellenblatteinfügen()
anzahl = Sheets.Count
Sheets.Add
ActiveSheet.Name = "Summe"
Sheets("Summe").Move after:=Sheets(anzahl + 1)
End Sub

Sub Datenimport()
Dim Importdatei$, Verzeichnis$
Verzeichnis = "P:\Departments1\CP_Gesamt\2_Bestandsbewertung\SAP-Spools"
On Error Resume Next
ChDir Verzeichnis
Importdatei = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
Application.ScreenUpdating = False
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Importdatei, _
Destination:=Range("A1"))
.TextFileSemicolonDelimiter = True
.TextFileTabDelimiter = True
.Refresh BackgroundQuery:=False
End With
End Sub

Sub Laschenloeschen()
'
' laschen loeschen Makro
' Makro am 16.10.2012 von z002tsup aufgezeichnet
'

'
Sheets("Tabelle2").Select
Selection.ClearContents
Sheets("Tabelle2").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Tabelle3").Select
ActiveWindow.SelectedSheets.Delete
End Sub
Sub Mehreredinge()
'
' Mehreredinge Makro
' Makro am 16.10.2012 von z002tsup aufgezeichnet
'

'
Columns("A:A").Select
Range("A31").Activate
Selection.Insert Shift:=xlToRight
Selection.ColumnWidth = 16.25
ActiveWindow.SmallScroll Down:=-72
Range("A1").Select
ActiveCell.FormulaR1C1 = "Dispo_Name"
Columns("C:C").Select

Columns("I:I").Select
Selection.Insert Shift:=xlToRight
ActiveCell.FormulaR1C1 = "Reichweite"
Range("I3").Select
End Sub
_______



Sub Leermachen()
Dim zeile As Variant
For zeile = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
'Hier wird der Arbeitsbereich (Anzahl der Spalten) angegeben
With Range(Cells(zeile, 1), Cells(zeile, 4))
If Application.WorksheetFunction.CountBlank(.Cells) = .Cells.Count Then
Rows(zeile).Delete
End If
End With
Next
End Sub

Sub Summe_kopieren()


Dim zeile, szeile As Long

'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False


_______


und diesen Teil, den du mir netter weise dazu geschrieben hast,
braeuchte ich noch
'letzte Zeile im Arbeitsblatt "Reichweite" ermitteln
lzeile = Worksheets(blatt).UsedRange.SpecialCells(xlCellTypeLastCell).Row

'überflüssige Überschriften im Blatt Reichweite löschen
For zeile = 6 To lzeile
If Left(Sheets(blatt).Cells(zeile, 1).Value, 3) = "Dis" Then
Sheets(blatt).Range(Cells(zeile - 3, 1), Cells(zeile + 2, 1)).EntireRow.Delete xlShiftUp
End If
Next zeile

'Suchen wo Summenbildung anfängt
'letzte Zeile im Arbeitsblatt mit Daten wird neu ermitteln
lzeile = Worksheets(blatt).UsedRange.SpecialCells(xlCellTypeLastCell).Row

'Zeilen suchen, in der "Summe" oder "Gesamtsumme" steht
For zeile = lzeile To 6 Step -1
If Left(Sheets(blatt).Cells(zeile, 3).Value, 5) = "Summe" And Sheets(blatt).Cells(zeile, 11).Value = 0 Then anfang = zeile
If Left(Sheets(blatt).Cells(zeile, 3).Value, 11) = "Gesamtsumme" Then ende = zeile
Next zeile

'letzte beschriebene Zeile im Arbeitsblatt Summe ermitteln und um 1 erhöht
slzeile = Worksheets("Summe").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1

'nun wird der letze Summenblock kopiert und gelöscht
With Sheets(blatt).Range(Cells(anfang, 1), Cells(ende, 1))
.EntireRow.Copy Destination:=Worksheets("Summe").Cells(slzeile, 1)
.EntireRow.Delete xlShiftUp
End With

'Löschen von leeren Zeilen

'letzte Zeile im Arbeitsblatt mit Daten wird neu ermitteln
lzeile = Worksheets(blatt).UsedRange.SpecialCells(xlCellTypeLastCell).Row

For zeile = lzeile To 6 Step -1
'Hier wird der Arbeitsbereich angegeben: Spalten A bis S
With Sheets(blatt).Range(Cells(zeile, 1), Cells(zeile, 19))
If Application.WorksheetFunction.CountBlank(.Cells) = .Cells.Count Then
Rows(zeile).Delete
End If
End With
Next zeile

_____________________

Leider wurde mir als ich dein Makro ausgefuehrt habe, nicht die Summen in die Summenlasche kopiert, lediglich eine Überschrift, die nicht benötigt wird

'Überschriften in Tabellenblatt "Summe" kopieren
Sheets(blatt).Range(Cells(2, 1), Cells(5, 1)).EntireRow.Copy Destination:=Worksheets("Summe").Cells(1, 1)



der Rest ist weltklasse!
0 Punkte
Beantwortet von exceluser91 Mitglied (103 Punkte)
Entschuldige ich habs eben selber nochmal gelesen, etwas unverständlich,
ab dem Fettgedruckten, dieser komplette Teil müsste noch integriert werden
0 Punkte
Beantwortet von exceluser91 Mitglied (103 Punkte)
Hallo nochmal M.O.

ich habe gerade nochmal Rücksprache gehalten und jetzt versteh ichs endlich.
zwischen den verschiedenen Zeilen, steht immer einmal wieder Summe die zu einer bestimmten Dis-nummer gehört (+ folgende leere Zeilen, wo in der Spalte C keine Summe steht da es ja quasi Gänsefüßchen sind und zur Summe gehören, Aufsummierung) ,


was letztendlich
das gleiche ist wie die Aufgliederung am Ende, die wir rausschneiden müssen,
also wäre es fuer mich das beste, wenn zwischen den Zeilen, alle Summen und anfangs leere Zeilen gelöscht werden!
und nur der letzte Abschnitt also ganz unten mit Gesamtsumme herausgeschnitten und in den Register "Summe" eingefügt wird!
Leider sind ganz unten zwischen den einzelnen Zeilen " ----"
Hier ein Bsp:
Es soll also Spalte Dis aus dem Lasche "Reichweite" kopiert werden,
jedoch müssten "------" und leere Zeilen in der Lasche "Summe" dann noch herausgelöscht werden

Dis
700 Summe 120€
90€
---------------------------------------------------------------

701 Summe 30€
40€
20€
---------------------------------------------------------------


Gesamtsumme:


schwer schwer... ist mir sehr unangenehm und ich bin dir SEHR dankbar!
0 Punkte
Beantwortet von m-o Profi (22.9k Punkte)
Hallo Benjamin,

in deiner Testdatei hat das Kopieren des Summenblocks funktioniert, warum das in der richtigen Datei kann ich nicht sagen, aber
wahrscheinlich sind die Daten etwas anders als in der Testdatei.
Hier noch das Makro, das nur den Summenblock kopiert und die leeren Zellen löscht:

Sub summen_kopieren()

Dim blatt As String
Dim anfang, ende, zeile, lzeile, slzeile As Integer

'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False

'letzte Zeile im Arbeitsblatt ermitteln
lzeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

'überflüssige Überschriften löschen
For zeile = 6 To lzeile
If Left(ActiveSheet.Cells(zeile, 1).Value, 3) = "Dis" Then
ActiveSheet.Range(Cells(zeile - 3, 1), Cells(zeile + 2, 1)).EntireRow.Delete xlShiftUp
End If
Next zeile

'Suchen wo Summenbildung anfängt
'letzte Zeile im Arbeitsblatt mit Daten wird neu ermitteln
lzeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

'Zeilen suchen, in der "Summe" oder "Gesamtsumme" steht
For zeile = lzeile To 6 Step -1
If Left(ActiveSheet.Cells(zeile, 3).Value, 5) = "Summe" And ActiveSheet.Cells(zeile, 11).Value = 0 Then anfang = zeile
If Left(ActiveSheet.Cells(zeile, 3).Value, 11) = "Gesamtsumme" Then ende = zeile
Next zeile

'letzte beschriebene Zeile im Arbeitsblatt Summe ermitteln und um 1 erhöht
slzeile = Worksheets("Summe").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1

'nun wird der letze Summenblock kopiert und gelöscht
With ActiveSheet.Range(Cells(anfang, 1), Cells(ende, 1))
.EntireRow.Copy Destination:=Worksheets("Summe").Cells(slzeile, 1)
.EntireRow.Delete xlShiftUp
End With

'Löschen von leeren Zeilen

'letzte Zeile im Arbeitsblatt mit Daten wird neu ermitteln
lzeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

For zeile = lzeile To 6 Step -1
'Hier wird der Arbeitsbereich angegeben: Spalten A bis S
With ActiveSheet.Range(Cells(zeile, 1), Cells(zeile, 19))
If Application.WorksheetFunction.CountBlank(.Cells) = .Cells.Count Then
Rows(zeile).Delete
End If
End With
Next zeile


'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True

End Sub


Sollte das nicht funktionieren wäre es gut, wenn du noch einmal eine Testdatei mit ein paar Fantasiedaten, die aber im Aufbau der echten Tabelle entsprechen, einstellen könntest.

Gruß

M.O.
0 Punkte
Beantwortet von m-o Profi (22.9k Punkte)
Hallo Benjamin,

ich noch mal :-). Habe deinen neuen Post erst gelesen, als ich meinen vorherigen schon abgeschickt habe. Dann kann das Kopiermakro für die Summen nicht funktionieren.
Stelle am besten mal eine neue Testdatei (siehe oben) und markiere dort, was gelöscht werden soll und was wohin kopiert werden soll.

Gruß

M.O.
0 Punkte
Beantwortet von exceluser91 Mitglied (103 Punkte)
Leider ist der Fileupload in meiner Arbeit geblockt, könnte ich Sie dir per Email schicken?
0 Punkte
Beantwortet von m-o Profi (22.9k Punkte)
Hallo Benjamin,

schau mal in deinen Pager.

Gruß

M.O.
...