Codeanpassung
02.11.2018 08:52:55
Thorsten
ich möchte einen Zeilenumbruch je nach Anzahl der Tabellenblätter verschieben.
so ist mein Ansatz:
Sub Schaltfläche2_Klicken()
If Sheets.Count > 5 Then
ThisWorkbook.Worksheets(1).VPageBreaks.Add before:=ThisWorkbook.Worksheets(1).Row(67)
Else
ThisWorkbook.Worksheets(1).VPageBreaks.Add before:=ThisWorkbook.Worksheets(1).Row(34)
End If
End Sub
funktioniert nichtKann jemand helfen?
Danke