Ich suche ein Makro wo volgendes Passieren soll
wenn mehr als eine Druckseite dann goto ....
MfG
Ralf
wenn mehr als eine Druckseite dann goto ....
MfG
Ralf
mal als Ansatz
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Sub Test()
Dim I As Integer
Dim Zeile
On Error GoTo ErrH:
With Worksheets("Tabelle3")
For I = 1 To 3000
If .HPageBreaks.Count Then
Zeile = .HPageBreaks(I).Location.Row - 1
Else
.Cells(Rows.Count, 1) = 3
Zeile = .HPageBreaks(I).Location.Row - 1
.Cells(Rows.Count, 1).ClearContents
End If
Sheets("Tabelle2").Cells(I, 1) = "Umbruch " & I & "="
Sheets("Tabelle2").Cells(I, 2) = Zeile
Next I
End With
ErrH:
MsgBox ("Anzahl der Seiten: " & I)
End Sub