Excel Zelle raufnummerieren

Beim öffnen soll die Zelle eine neue Nummer erhalten.

hallo zusammen
ich möchte bei einer Zelle bei der ich z.b eine 1 drinn bei einem Neustart der Tabelle eine 2 drinn steht. Z.B Nummer 0101 sollte dann 0102 bei Neustart drinn stehen. Geht das?
Danke im Voraus und bis demnächst

mfg
lotus

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 43641

Url: https://administrator.de/contentid/43641

Ausgedruckt am: 22.11.2024 um 17:11 Uhr

8 Kommentare

Neuester Kommentar

Hi,

klar geht das:

sub auto_open()
 Range("A1").Value  = Range("A1").Value + 1  
end sub

Entscheidend ist der Name des Makros "auto_open"!

Psycho

Hallo!

Auf jeden Fall klappt es, wenn das Makro im Code von "Diese Arbeitsmappe" liegt und den Namen "Sub Workbook_open()" trägt, also:

Sub Workbook_open()
Worksheets("Tabelle1").Range("A1").Value = Worksheets("Tabelle1").Range("A1").Value + 1  
End Sub

Grüße
bastla

@psycho und @bastla

und die Zusatzanforderung, dass Zahlen >100 eine führende "0" erhalten sollen?
Wollt ihr Euch da drücken? *g

Schönes Wochenende

Biber

...also ich drücke mich nicht

Spalte markieren -> Rechte Maustaste -> Zellen Formatieren -> Reiter Zahlen wählen -> Benutzerdefiniert wählen -> 000# eingeben

und auch ein schönes Wochenende von mir

Psycho

@Biber

Könnte man das nicht heimlich in der .xls per Batch (oder Patch) erledigen?

Grüße
bastla

hallo zusammen und ein grosses Danke zuerst einmal.
Aber wo pflanze ich diesen Code hin???

Gruss
lotus

Hallo lotus!

Zunächst mit Alt-F11 den Visual Basic-Editor und dort, fall nicht ohnehin sichtbar, den Projekt-Explorer mit Strg-R aufrufen und dann:
Excel Zelle raufnummerieren
(Codefenster per Doppelklick öffnen)

Grüße
bastla