Hallo Alle
Ich habe eine Excel Arbeitsmappe mit 40 Arbeitsblättern. Ich möchte aber nur die Arbeitsblätter ausdrucken, welche in der Zelle J23 einen (Zahlen)Wert haben. Ich habe es mit dem nacholgenden Skript versucht. Aber irgend etwas scheint noch faösch zu sein.
Wer kann mir helfen?
Sub DruckenBericht()
ThisWorkbook.Worksheets(wksh_Bericht).Activate
Dim zelleToCheck As String
zelleToCheck = J23
If Not IsEmpty(ws.Range(zelleToCheck).Value) Then
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveSheet.PrintOut From:=1, To:=1
End If
End Sub
Vielen Dank und beste Grüsse
Paise 645