in einer UserForm, über die verschiedene Druckeinstellungen vorgenommen und die Tabellenblätter ausgewählt werden können, befindet sich u.a. eine ComboBox. In dieser soll eingetragen werden, wie viele Kopien gedruckt werden sollen.
Die UserForm funktioniert solange, bis man vergisst, eine Zahl in der besagten ComboBox einzutragen. Dann wird mir der Laufzeitfehler 13: Typen unverträglich angezeigt.
Habe ohne Erfolg versucht den Fehler abzufangen und eine MsgBox zu starten, die darauf hinweißt, dass man die Anzahl der gewünschten Kopien eintragen muss.
Ich bitte um Hilfe, wie ich folgenden Code verändern muss.
Private Sub CB_Drucken_Click()
'Variable definieren
Dim Blattname As String
Dim Anzahl As Integer
Anzahl = CInt(ComboBoxAnzahl.Value) 'Dies wird mir fürs Debuggen gelb angezeigt
'If Anzahl "" Then
'MsgBox "Bitte tragen Sie die Anzahl der gewünschten Kopien ein", vbInformation, "Hinweis für: " _
& Application.UserName
'Exit Sub
'End If
'If Anzahl = 0 Then
'MsgBox "Bitte tragen Sie die Anzahl der gewünschten Kopien ein", vbInformation, "Hinweis für: " _
& Application.UserName
'Exit Sub
'End If
'Prüfen welche Tabelle in der ComboBox_Drucken ausgewählt wurde
If ComboBoxBlattwahl.Value = "UB-Frontseite" Then
'Tabellenblatt UB-Frontseite drucken
Blattname = "UB-Frontseite"
ElseIf ComboBoxBlattwahl.Value = "Tagesarbeitsbericht" Then
Blattname = "Tagesarbeitsbericht"
ElseIf ComboBoxBlattwahl.Value = "Besuch_am_Arbeitsplatz" Then
Blattname = "Besuch_am_Arbeitsplatz"
ElseIf ComboBoxBlattwahl.Value = "Arbeitsplatzbesuch" Then
Blattname = "Arbeitsplatzbesuch"
Else
Blattname = "UB-Rückseite"
End If
'UserForm Drucken schließen
Me.Hide
'aktivierts Tabellenbaltt drucken
Sheets(Blattname).PrintOut Copies:=Anzahl
End Sub