lotus
Nov 03, 2006, updated at Oct 18, 2012 (UTC)
view5112
view8
0
Goto Top

Excel Zelle raufnummerieren

GermansolvedQuestionMicrosoft OfficeMicrosoft

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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 43641

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

Printed on: April 19, 2024 at 12:04 o'clock

8 Comments
Latest comment
Goto Top
Mitglied: 8644
8644 Nov 03, 2006 at 12:48:52 (UTC)
Goto Top
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
Member: bastla
bastla Nov 03, 2006 at 13:15:55 (UTC)
Goto Top
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
Member: Biber
Biber Nov 03, 2006 at 13:21:06 (UTC)
Goto Top
@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
Mitglied: 8644
8644 Nov 03, 2006 at 13:31:08 (UTC)
Goto Top
...also ich drücke mich nicht face-wink

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

und auch ein schönes Wochenende von mir

Psycho
Member: bastla
bastla Nov 03, 2006 at 14:32:37 (UTC)
Goto Top
@Biber

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

Grüße
bastla
Member: lotus
lotus Nov 03, 2006 at 14:46:41 (UTC)
Goto Top
hallo zusammen und ein grosses Danke zuerst einmal.
Aber wo pflanze ich diesen Code hin???

Gruss
lotus
Member: bastla
bastla Nov 03, 2006, updated at Oct 18, 2012 at 15:57:23 (UTC)
Goto Top
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
Member: lotus
lotus Nov 08, 2006 at 08:02:30 (UTC)
Goto Top
Bestens dankeschön an alle hat geklappt bin sehr froh danke.

Gruss
lotus
GermansolvedQuestionMicrosoft OfficeMicrosoft
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment