Re: Fortlaufende Nummerierung
11.10.2002 15:53:58
Chris
Hallo MarkusNachfolgende Programmzeile addiert zu der in Zelle A1 stehenden Zahl eins dazu.
ActiveSheet.Cells(1, 1) = ActiveSheet.Cells(1, 1) + 1
(1, 1) ist dabei die Zelle A1 d.h. Zeile 1, Spalte 1.
Das Problem ist dass du dafür einen Auslöser brauchst. Z.B. könntest du eine Workbook_Open Ereignisprozedur machen d.h. jedesmal wenn die Datei geöffnet wird, rechnet er 1 dazu. Vermutlich wird die Datei aber nicht nach jeder Rechnung geschlossen und wieder geöffnet.
Andere Variante ist ein "Druckknopf" zu erstellen. D.h. anstatt über das Menu zu drucken, machst du einen Knopf (Button), der das Drucken ausführt und dann 1 dazuzählt. Aber auch da hast du das Problem, dass du evtl. eine Rechnung mehrfach drucken willst etc. Das Makro würde dann so aussehen:
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.Cells(1, 1) = ActiveSheet.Cells(1, 1) + 1
Oder du machst einfach nur einen Knopf, der manuell betätigt wird, um eins zu addieren, aber das wäre auch ein bischen doof.
Gruss
Chris