Else if - Sehe wohl den Wald vor lauter Bäumen...
02.06.2004 11:28:00
Russi
irgendeine Blockade in meinem Erbsenhirn verhindert, dass ich kapiere, warum die Elseif-Syntax nicht korrekt ausgeführt wird. In der Userform sind alle chk-Boxen angehakelt, aber das Makro springt nach der ersten msgbox zur Meldung, dass der Druck abgeschlossen ist und das Makro wird beendet...
Hier der Code, vielleicht kann mir jemand weiterhelfen...
Private Sub btn_print_Click()
On Error GoTo Errorhandler:
If chk_detail.Value = True Then
'Sheets("Auswertung nach Monat").PrintOut Copies:=1, Collate:=True
MsgBox "Print1"
ElseIf chk_einzeln.Value = True Then
'Sheets("Diagramme Prod. einzeln").PrintOut Copies:=1, Collate:=True
MsgBox "Print2"
ElseIf chk_details.Value = True Then
'Sheets("Diagramm Prod-Übersicht").PrintOut Copies:=1, Collate:=True
MsgBox "Print3"
Else
End If
MsgBox "Druck abgeschlossen"
GoTo Ende
Errorhandler:
MsgBox "Beim Drucken ist ein Fehler aufgetreten! Bitte Standarddrucker überprüfen!"
Resume Ende
Ende:
End Sub