AW: Seitenumbruch per vba nach Merkmalswechsel
02.05.2005 10:56:31
=Peter=
Hallo Sebastian,
ich habe mir deine Datei jetzt nicht heruntergeladen.
Folgendes Makro führt einen Seitenumbruch durch, wenn sich in der Spalte G der Wert ändert. Mit 'VBA gut' solltest du das auf deine Verhältnisse anpassen können.
Sub Seitenumbruch()
'Autor: unbekannt
Dim i As Integer
Dim strDummy1 As String
Dim strDummy2 As String
With ActiveSheet.ResetAllPageBreaks ' Alle Seitenumbrüche löschen
End With
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row 'For i =3 - Ab Zeile 3 wird Seitenumbruch gesetzt
strDummy1 = Cells(i, 7) ' 7 = Spalte G wird geprüft
strDummy2 = Cells(i + 1, 7) '7 = Spalte G wird geprüft
If strDummy1 <> strDummy2 Then _
ActiveWindow.SelectedSheets. _
HPageBreaks.Add Before:=Cells(i + 1, 1)
Next i
End Sub
HTH
Gruß
Peter