VBA-Makro-Autom. immer eine Zeile tiefer rutschen
27.11.2003 10:57:30
Martin Hunte
es geht einfach nur um einen Serienbrief (Datenquelle in Excel) in der leider die Adressdaten untereinander stehen, welches Word aber nicht verarbeiten kann für Serienbriefe.
Ist:
Firma
Strasse
PLZ
(Leerzeile)
(Leerzeile)
(Leerzeile)
Firma
Strasse
PLZ
(Leerzeile)
(Leerzeile)
(Leerzeile)
usw.
Soll:
Firma Strasse PLZ (Alles in einer eigenen Spalte)
Firma Strasse PLZ
Firma Strasse PLZ
Habe folgenden Makro aufgenommen, aber diesem muss ich noch irgendwie sagen das er immer eine Zeile tiefer rutschen soll.
Range("B2").Select
Selection.Cut Destination:=Range("C1")
Range("B3").Select
Selection.Cut Destination:=Range("D1")
Rows("2:6").Select
Selection.Delete Shift:=xlUp
Range("B2").Select
Selection.Cut Destination:=Range("C1")
Range("B3").Select
Selection.Cut Destination:=Range("D1")
Rows("2:6").Select
Selection.Delete Shift:=xlUp
End Sub
Vielen Dank für Infos und Antworten!!
Gruß
Martin