Ich möchte mit unteren Code die Anzahl der Kopien zum drucken eingeben.
Könnte mir dazu bitte jemand helfen ?
Gruß
Heinz
Private Sub CheckBox30_Click()
Dim Frage As String
Application.ScreenUpdating = False
Call BlattSchutz_Aufheben
Frage = InputBox("Bitte Anzahl der Kopien eintragen")
If Frage "" Then
Worksheets("Alle Schichten").Range("A1:AG50").Interior.ColorIndex = xlNone
ActiveSheet.PrintOut From:=1, To:=1
Call BlattSchutz_Ein
Application.ScreenUpdating = True
End If
End Sub