ich erhalte die obere Fehlermeldung.
Eigentlich habe ich die Befehlzeile in ähnlicher Funktion die gehen ohne Fehlermeldungen.
Was hier falsch sein soll ist mir Schleierhaft.
Private Sub CommandButton1_Click()
'Fehlermeldung Variable nicht definiert
Dim DruckStarten As Integer
Mldg = "Wollen Sie Ihre Eingabe als Übersicht ausdrucken?" & Chr(10) & _
"Gesamt und Einzeldruck möglich!" & Chr(10) & "" & Chr(10) & _
"Dann wählen Sie JA" & Chr(10) & _
"bei Nein erfolgt nur Speicherung und Startseitenansicht"
stil = vbYesNoCancel + vbCritical + vbDefaultButton2
DruckStarten = MsgBox(Mldg, stil, "Änderungen abspeichern?!")
If DruckStarten = vbCancel Then End
If DruckStarten = vbYes Then PortionsGroßDruck
If DruckStarten = vbNo Then ActiveWorkbook.Close SaveChanges:=False
If DruckStarten = vbCritical Then End
End If
End Sub