Supportnet / Forum / Tabellenkalkulation
Lieferscheine fortlaufend Nummerieren
Frage
Hallo Zusammen,
ist es eigentlich möglich in Excel einen Zähler einzufügen der bei jedem öffnen, nach jedem 2. Ausdruck oder nach jedem Speichern um einen hoch Zählt?
So in der Art einer Lieferschein-Nummer.
Wenn ja, wie geht das?
Danke
Trudi
Antwort 1 von coros
Hi Trudi,
ja das geht. Allerdings bedarf es dazu einen VBA Code, den man erst erstellen muss. Dieser würde z.B. für nach jedem Öffnen folgendermaßen aussehen. Kopiere den Code in das VBA Projekt "DieseArbeitsmappe".
Der Code addiert immer zu einer Zahl in Zelle A1 die Zahl 1 dazu.
Fürs Ausdrucken würde der Code für die gleiche Zelle folgendermaßen aussehen. Auch der gehört wieder in das VBA Projekt "DieseArbeitsmappe".
Zum Schluß noch fürs speichern. Ebenfalls einzufügen in "DieseArbeitsmappe"
Ich hoffe, Du kommst klar. Bei Fragen melde Dich. Wenn Du etwas genaueres benötigst, musst Du etwas mehr von dem verraten, was Du erreichen möchtest.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 1 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
ja das geht. Allerdings bedarf es dazu einen VBA Code, den man erst erstellen muss. Dieser würde z.B. für nach jedem Öffnen folgendermaßen aussehen. Kopiere den Code in das VBA Projekt "DieseArbeitsmappe".
Private Sub Workbook_Open()
Range("A1") = Range("A1") + 1
End SubDer Code addiert immer zu einer Zahl in Zelle A1 die Zahl 1 dazu.
Fürs Ausdrucken würde der Code für die gleiche Zelle folgendermaßen aussehen. Auch der gehört wieder in das VBA Projekt "DieseArbeitsmappe".
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1") = Range("A1") + 1
End SubZum Schluß noch fürs speichern. Ebenfalls einzufügen in "DieseArbeitsmappe"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1") = Range("A1") + 1
End SubIch hoffe, Du kommst klar. Bei Fragen melde Dich. Wenn Du etwas genaueres benötigst, musst Du etwas mehr von dem verraten, was Du erreichen möchtest.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 1 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von Trudi03
Danke Coros,
das war was ich gesucht habe
Gruß
Trudi
das war was ich gesucht habe
Gruß
Trudi

