Ich habe folgendes Problem. Ich habe ein Makro in dem ich in der Spalte "C" nach Straßen sortiere und automatisch für jede Straße eine eigen Seite anlege (Seitenumbruch).
Jetzt will ich außerdem noch das automatisch zu jeder Straße (auf jeder Seite) noch 5 leere Zeilen eingefügt werden.
Außerdem möchte ich noch eine Abfrage (MSgBox),ob jetzt wirklich ausgedruckt werden soll.
Makro:
Sub Strassen_drucken()
Dim Zelle As Range
Dim SP_Strasse As Long
SP_Strasse = 3
ActiveSheet.ResetAllPageBreaks
Range("A1").CurrentRegion.offset(4,0).Sort Key1:=Cells(5, SP_Strasse), Order1:=xlAscending, Header:= _
xlno, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
For Each Zelle In Range(Cells(5, SP_Strasse), Cells(65000, SP_Strasse).End(xlUp))
If Zelle.Value <> Zelle.Offset(1, 0).Value Then
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=Zelle.Offset(1, 0)
End If
Next
ActiveSheet.PrintOut
End Sub
Im voraus vielen Dank
Gruß ABO