ich möchte in einem Exel Arbeitsblatt in Zelle b1 zum Bsp. eine Zahl
(213) eingeben und wenn dann der Druck beginnt soll auf den Kopien jeweils
eine laufende Nummer in b1 erscheinen. ( Seite 1 = 213, Seite 2 =214 usw.)
Wie stell ich das nur an?
Sub Makro1()
Range("B1").Select
ActiveCell.FormulaR1C1 = (ActiveCell.Value) + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Private Sub CommandButton1_Click()
anzahl = InputBox("Anzahl Drucke?")
For i = 1 To anzahl
ActiveSheet.Range("b3") = ActiveSheet.Range("b3") + (i - 1)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
End Sub