Hier der Beitrag (konnte hier leider keine Erweiterung vornehmen):
Hallo,
habe nachfolgendes Makro. Möchte gerne das in dem Makro mit aufgenommen wird, das das Tabellenblatt "Ergebnisaufteilung" eingefügt wird.
Kann mir jemand helfen?
:-) Gesa S.
Sub Druck_Fortschreibung()
Dim iRowL As Integer, iRow As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
Rows(iRow).Hidden = (IsEmpty(Cells(iRow, 19)) Or Cells(iRow, 19).Value = 0)
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
ActiveSheet.DisplayPageBreaks = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Nachdem ich die nachfolgende Antwort von Luc umgesetzt habe erscheint die Fehlermeldung: Laufzeit 438 (Objekt unterstützt diese Eigenschaft oder Methode nicht). Wie gesagt, VBA sind für mich bömische Dörfer. Ich wäre dankbar, wenn mir jemand hilft
Schöne Grüße
:-) Gesa S.
... ActiveWorkbook.Sheets("Ergebnisaufteilung").Add einfügen, Gesa!
Gruß Luc :-?