kann jemand helfen?
Bekomme bei folgender Ausführung, d.h. dem Druck einer ausgeblendeten Tabelle mit u.a. Code immer die Fehlermeldung 'Laufzeitfehler 1004, das PrintOut Objekt konnte nicht ausgeführt. Wie kann man diese verhindern?
Private Sub Worksheet_Change(ByVal Target As Range)
'Ergebnis durch Eingabe in Zelle
If Range("F16") = 2 Then
Application.ScreenUpdating = False
Worksheets("Tabelle1").Visible = True
Worksheets("Tabelle2").PrintOut 'hier Fehlermeldung
'Laufzeitfehler 1004, das PrintOut Objekt konnte nicht ausgeführt werden
Application.ScreenUpdating = True
End If
End Sub
Vielen Dank
Torge