Gruppe
Format
Problem
Wie kann ich einen Zeilenumbruch in einer Formel erzwingen? Ich möchte Adressdaten, die sich in den Spalten "Anrede", "Vorname", "Name", "Straße", "PLZ" und "Ort" (Spalten A-F) befinden, so verknüpfen, daß ein ordnungsgemäßes Adressfeld entsteht.
StandardModule: Modul1
Sub SetPageBreaks()
Dim iRow As Integer
iRow = 2
Do Until IsEmpty(Cells(iRow, 1))
If Cells(iRow, 1).Value <> Cells(iRow - 1, 1).Value Then
Cells(iRow, 1).PageBreak = xlPageBreakManual
End If
iRow = iRow + 1
Loop
ActiveSheet.PrintPreview
End Sub