wenn in den Zellen d5:g5 min. ein "X" enthalten ist, soll die Tabelle gedruckt werden!
Warum bekomme ich den MsgBox-Hinweis "Es wurden nicht alle Daten eingegeben" trotzdem eingeblendet?
Sub Blätter_Drucken()
Dim c As Range
Dim z As Integer
For Each c In Sheets("Checkliste").[d5:g5]
If c = True Then
z = X
Exit For
End If
Next
If z = 0 Then
MsgBox "Es wurden nicht alle Daten eingegeben" & Space(10), vbCritical, "Warnung"
Exit Sub
End If
antwort = MsgBox("Möchten Sie die Liste ausdrucken?" & Space(10), 36, "Drucken?")
Application.Goto Reference:="Druckbereich2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A1").Select
Application.Goto Reference:="Druckbereich1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A1").Select
Sheets("Auswertung").Select
Range("A3").Select
End Sub
Danke für Euere Hilfe