InputBox Anzahl Kopien Ausdruck+ Eintragung in A1 1 von....
04.09.2023 06:29:19
Beno297
gibt es die Möglichkeit , wenn ich in A2 ein Datum eintrage und mit der Abfrage z.b. 2 ausdrucke Starte das das Datum in A2 bei jedem Druck um 1 erhöht wird
MFG Beno297
Sub drucken()
Dim iAnz As Integer, i As Integer
iAnz = Application.InputBox(prompt:="Anzahl Kopien?", Type:=1)
If iAnz > 0 Then
For i = 1 To iAnz
Range("A1") = i & " von " & iAnz
ActiveWindow.SelectedSheets.PrintOut
Next i
End If
End Sub