Office: Adressen im Blockformat für Word-Mailing aufbereiten

Hallo zusammen!

Ich habe eine Excel-Datei mit ca. 1300 Adressen im Blockformat die ich für ein Word-Mailing benutzen soll.

Das Problem ist, dass sich die Adress-Blöcke über 3 Spalten verteilen und dann Anrede, Name, Strasse, PLZ Ort in verschiedenen Zeilen. Dann zwei Leerzeilen und wieder drei Adressen über 3 Spalten usw. Siehe auch Beispieldatei im Anhang.

Für Word müsste die Adress-Datei ja eigentlich so sein, dass in den verschiedenen Spalten Anrede, Name, Strasse, PLZ Ort steht und jede Adresse in einer Zeile.

Wie kann ich das hinbekommen?

Vielen Dank für Eure Hilfe in Voraus!

 

Hallo!

Wenn du diesen Code in deine Beispieldatei einbaust, dann werden die Datensätze zeilenweise ab Spalte F aufgelistet:

Code:

Sub umordnen()
Dim i%, j%, k%, z%
For i = 1 To 100 Step 9
For k = 1 To 3
z = z + 1
For j = 0 To 8
Cells(z, j + 6) = Cells(i + j, k)
Next j
Next k
Next i
End Sub

 

Danke! Aber wo baue ich das ein?

 

Hallo!

Rechtsklicke den Tabellenreiter des Blatts und wähle "Code anzeigen".
Kopiere den Code ins Code-Fenster rechts.
Zurück in der Tabelle rufst du das Makro mit Alt+F8 auf.

 

Prima! Hat einwandfrei funktioniert.

Vielen Dank!