Morgen Zusammen,
Das ist mein Folgender Code:
Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(109,R[2]C:R[9999]C)"
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Menge = InputBox("Anzahl eingeben" & vbCrLf & "Zum Drucken OK wählen", "Drucken", 10)
If Menge = "" Then
GoTo EndPrint
Else
Wenn ich das Makro so durchführe, druckt er es mir immer in 10er Schritten aus.
Gibt es die Möglichkeit das ich selber defenieren kann das es zuerst in 10er, dann in 20 dann wieder in 10er und dann in 5er Schritten ausdruckt.
Ich hoffe mein Wunsch, konnte man einigermaßen verstehn :)
LG
Tobi
|