nicht
Sub Drucken()
Dim Seite As Variant
'If MsgBox("Drucken?", vbYesNo, "Drucken") = vbYes Then
Do
Seite = InputBox("Welche Seite ", "Drucken", 1)
'If StrPtr(Seite) = 0 Then Exit Sub
If IsNumeric(Seite) Then Exit Do
MsgBox "Bitte eine Zahl eingeben!", vbExclamation, "Hinweis"
Loop
If IsNumeric(Seite) = 1 Then
Application.Goto Reference:="Seite1"
Selection.PrintOut Copies:=1, Collate:=True
If IsNumeric(Seite) = 2 Then
Application.Goto Reference:="Seite2"
Selection.PrintOut Copies:=1, Collate:=True
If IsNumeric(Seite) = 3 Then
Application.Goto Reference:="Seite3"
Selection.PrintOut Copies:=1, Collate:=True
If IsNumeric(Seite) = 4 Then
Application.Goto Reference:="Seite4"
Selection.PrintOut Copies:=1, Collate:=True
'Else
'ActiveSheet.PrintOut From:=1, To:=4, Copies:=1
End If
End If
End If
End If
End Sub
Ich komm irgendwie nicht drauf, wo das Problem liegt, es kommt zwar die Abfrage, aber egal es ich eintrage, es wird nichts gedruckt.
Danke für eure Hilfe