VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von:
Gast97386

Datum:
05.04.2022 08:36:33

Views:
1191

Rating:

Antwort:

Thema:
Druck Anzahö

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 :)

Tobi

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen