1.6k Aufrufe
Gefragt in Tabellenkalkulation von korfuweb Mitglied (949 Punkte)
Liebe Forumgemeinde,
komm einfach mit meinem Druckproblem nicht weiter:

Benötige ein VBA Macro das folgendes bewerkstelligt:

folgendes ist gegeben:
Ein Arbeitsblatt das anhand einer Indexnummer (steht in Zelle A3) automatisch
ausgefüllt wird.

Wenn ich nun drucken möchte, muss ich in die Zelle A3 also z.B. die Zahl 1
eingeben und den Druckbefehl ausführen, dann die Nr. 2 eingeben und drucken
dann die Nr. 3 und drucken usw.

Möchte jetzt aber das z.B. so anlegen, das ich z.B.
in Zelle AF3 den Wert 3 eintrage und in Zelle AG3 den wert 40 eintrage.
Dann hätte ich gerne ein Macro das zählt und druckt also was nix anderes macht
wie mir nun die Aufträge 3-40 auszudrucken!

Bedeutet das ja die Zelle A3 hochgezählt werden muss und zwischen jedem Zählen
der Druckbefehl ausgeführt werden muss und das eben so lange bis der Wert von
Zelle AG3 erreicht wurde!

Please Help !!!!!

3 Antworten

0 Punkte
Beantwortet von m-o Profi (22.8k Punkte)
Hallo Volker,

wenn ich dich richtig verstanden habe, dann probier es mal mit folgendem Makro:

Sub drucken()

Dim anfang, ende, zaehler As Long

'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False

anfang = Range("AF3")
ende = Range("AG3")


For zaehler = anfang To ende
Range("A3") = zaehler
ActiveSheet.PrintOut Copies:=1
Next zaehler

'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True

End Sub


Gruß

M.O.
0 Punkte
Beantwortet von korfuweb Mitglied (949 Punkte)
Vieeeelen Dank für deine Mühe -

Hat auf Anhieb hingehauen !

Und ich wurschtle schon den ganzen morgen vor mich hin - tztztz

Gruß
Volker
0 Punkte
Beantwortet von paul1 Experte (4.9k Punkte)
Hallo Volker und M.O,

Gratuliere:>super Idee>perfekt umgesetzt!


schöne Grüße

Paul1
...