Zahlenwerte in Excel automatisch beim Drucken erhöhen

[von Schnitzel]

Hi Leute,
sitze gerade in der Arbeit und hab einen kleines Prob. Undzwar hab ich in Excel auf einer Seite (nur Tabellenblatt 1) zwei Materialentnahmescheine erstellt. Nun soll sich die Anzahl der Scheine automatisch beim Drucken erhöhen - also auf Blatt 1 ist dann der 1te und 2te, auf Blatt 2 der 3te und 4te Schein, usw.

Hoffe ihr könnt mir helfen.

 

[GMG-CC]

Hallo von Schnitzel,

das geht per VBA (Makro) recht einfach:

Angenommen, die Zahlen (die Nummerierung) seht in den Zellen C2 und C58 (sind etwa 2 Seiten) dann ...

• Alt+F11
• "Diese Arbeitsmappe" doppelklicken
• Dann diesen Code einfügen:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    
    Range("C2").Value = Range("C2") + 2
    Range("C58").Value = Range("C58") + 2
End Sub

Jetzt wird vor jedem Drucken der Wert in den beiden Zellen um 2 erhöht. Aber denke daran, die Seitenvorschau ist auch ein "Druckvorgang"!

 

[von Schnitzel]

Ai Captain ^^
danke für die schnelle Hilfe, hat wunderbar geklappt.
Hatte es gestern noch mit einem ähnlichen Code probiert aber irgendwas hatte ich falsch gemacht - kenn mich halt mit Makros nich aus.

Auf jedenfall, Danke.