Supportnet / Forum / Tabellenkalkulation
Wert automatisch um 1 erhöhen
Frage
Hallo,
habe eine Excel Tabelle und möchte dort einen Wert in einer Zelle bei jedem aufrufen der Tabelle automatisch um 1 erhöhen.
Angefangen mit 1000, dann werden andere Felder ausgefüllt, die Datei wird abgespeichert. Wenn ich jetzt die Datei wieder aufrufe, soll aus der 1000, die 1001 werden.
Ich bin am verzweifeln.
Danke
Antwort 1 von want2cu
hallo Taco,
leider kann ich dir jetzt keine fertige LÖsung anbieten.
Aber ich bin mir sicher, dass so was ähnliches hier im SN in der EXCEL-Rubrik schon mal gefragt wurde. Ich meine, es ging da um die automatische Erhöhung einer Rechnungsnummer in einem Formluar. Die Sache wurde dann über VBA gelöst. EIn Makro, das beim Öffnen der Datei den Wert in einer Zelle automatisch erhöhte (glaub ich jedenfalls).
Ich habe gesucht, aber auf die Schnelle nix gefunden.
Entweder jemand anders erinnert sich noch genauer oder du machst dich selbst mal auf die Suche.
CU
want2cu
leider kann ich dir jetzt keine fertige LÖsung anbieten.
Aber ich bin mir sicher, dass so was ähnliches hier im SN in der EXCEL-Rubrik schon mal gefragt wurde. Ich meine, es ging da um die automatische Erhöhung einer Rechnungsnummer in einem Formluar. Die Sache wurde dann über VBA gelöst. EIn Makro, das beim Öffnen der Datei den Wert in einer Zelle automatisch erhöhte (glaub ich jedenfalls).
Ich habe gesucht, aber auf die Schnelle nix gefunden.
Entweder jemand anders erinnert sich noch genauer oder du machst dich selbst mal auf die Suche.
CU
want2cu
Antwort 2 von Guenter
Hallo, mit VBA geht das ganz einfach:
Diese Zeilen werden werden in der Entwicklungsumgebung bei Diese Arbeitsmappe eingefügt. Bei jedem Öffnen wird der Wert in A1 um 1 erhöht.
Falls Du nicht klar kommst, nochmals melden.
Gruß
Günter
Private Sub Workbook_Open()
Cells(1, 1).Value = Cells(1, 1).Value + 1
End Sub
Diese Zeilen werden werden in der Entwicklungsumgebung bei Diese Arbeitsmappe eingefügt. Bei jedem Öffnen wird der Wert in A1 um 1 erhöht.
Falls Du nicht klar kommst, nochmals melden.
Gruß
Günter
Antwort 3 von taco
Danke, hat wunderbar funktioniert. Habe es zwar nicht selbst hinbekommen, aber jemand der sich mit VBA auskennt hat den Code eingefügt.

