Drucken und Hochzählen
27.04.2005 12:12:41
Uwe
ich habe im Forum folgenden Code für das Hochzählen einer Zelle beim Drucken bekommen. Dies klappt auch wirklich super.
Doch ein Problem hab ich da noch und ich hoff Ihr könnt mir helfen.
Kann ich hier auch noch einen Befehl einbauen, der jeweils den hochgezählten Wert automatisch in eine weitere Tabelle übernimmt um eine Übersicht zu haben welche Werte schon vergeben wurden?
Also 501 in Tabelle2 ZelleA1, 502 Tabelle2 ZelleA2 usw.
Sub Drucken()
Dim Kopien As Integer
Dim zaehler As Integer
Kopien = InputBox("Anzahl der Kopien:")
For zaehler = 1 To Kopien
Cells(1, 1).Value = Cells(1, 1).Value + 1
Sheets("Tabelle1").PrintOut copies:=1
Next zaehler
End Sub
Vielen Dank im Voraus!
Anzeige