Excel vba for-next-schleife for i = 1 to anzahl

[weidag]

Hallo zusammen,
ich trage in Zelle AE4 eine ganze Zahl ein, zum Beispiel 7.
Dann soll eine VBA-For-next-Schleife diesen Wert aus Zelle AE4 auslesen und die Seite dann entsprechend 7 mal ausdrucken.

Ich bitte um die Hilfe für die Syntax.

So wie ichs bisher versucht habe, klappt es nicht:

’
Dim i As Integer
Dim anzahl As Integer

Range(„AE4“).Value = anzahl
For i = 1 To anzahl
’
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False

Next i
End Sub

[weidag]

Sorry, habe den Gruß vergessen.
Gruß
weidag

[littlepinguin]

hi,

auf den ersten Blick:

@weidag

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, **Copies:=1**, Collate _
:=True, IgnorePrintAreas:=False

wäre Copies:=anzahl nicht ganz erheblich einfacher?

@weidag

Range(„AE4“).Value = anzahl

verdreht? bin ich mir bei vba zwar unsicher, aber sieht komisch aus.

grüße
lipi

[weidag]

Genau das war es. Jetzt klappt es. Herzlichen Dank für die schnelle und sachdienliche Hilfe.
Gruß
weidag