VBA Zählschleife verhält sich komisch
23.07.2008 17:27:28
Marc
ich habe unten stehenden Code gebastelt. Wenn ich in E3 eine 3 eingebe und in E6 eine 1, dann soll das Makro den Sheet 4 mal ausdrucken. Einmal mit der eingegebenen 1 und dann drei Mal die Zelle E6 jeweils um 1 hochzählen und bei jedem Schritt einmal drucken.
Wenn ich den Druckbefehl weglasse, dann wird auch korrekt hochgezählt. Sobald der Druckbefehl ins Spiel kommt wird E6 bei jedem Schritt um 3 hochgezählt. Warum? Was habe ich falsch gemacht?
Sub mehrfachdruck()
If Range("E3") "" Then
Dim Anzahl As Integer
Dim i As Integer
Sheets(1).PrintOut
Anzahl = Range("E3")
For i = 1 To Anzahl
Range("E6") = Range("E6") + 1
Sheets(1).PrintOut
Next i
Else
Exit Sub
End If
End Sub
Ich hoffe, ihr könnt mir helfen. Ich danke euch schonmal im Voraus für Eure Mühe.
Grüße,
Marc Richter
Anzeige