Live-Forum - Die aktuellen Beiträge
Datum
Titel
12.10.2025 02:58:05
Kalenderwoche zählen
10.10.2025 15:11:39
Werte aus Zellen in Punktdiagramm, Beschriftung
10.10.2025 11:07:34
"Text in Spalten" ändert die Zahl von 21.1 in 45678
10.10.2025 10:11:05
geöffnete Excel-Datei mit variablen Namen finden
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1696to1700
1696to1700
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

automatische Nummerierung

Forumthread: automatische Nummerierung

automatische Nummerierung
14.06.2019 13:32:13
haustein
Hallo Gemeinschaft,
folgendes Problem
habe eine Tabelle - in der ersten Spalte ist eine Nummer
nun soll es so sein, dass wenn ich ans Ende der Tabelle gehe und eine neue zeile erstellen möchte und in spalte 2 einen wert eintrage, dass dann in spalte 1 eine neue Nummer automatisch erstellt wird (max nummer der spalte1 + 1)
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatische Nummerierung
14.06.2019 13:39:04
UweD
Hallo

Tabelle2
 AB
11wewe
22hfhfh
3  
4  
53eee
6  
7  
84ddd
9  

verwendete Formeln
Zelle Formel Bereich N/A
A2:A9=WENN(B2<>"";MAX($A$1:A1)+1;"")  
http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://Hajo-Excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 25.14 einschl. 64 Bit


LG UweD
Anzeige
AW: automatische Nummerierung
14.06.2019 13:52:56
haustein
hi uwe - gibt es da auch etwas mit vba
AW: automatische Nummerierung
14.06.2019 13:57:49
Rudi
Hallo, 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
On Error GoTo ERREXIT
Application.EnableEvents = False
If Target  "" Then
Target.Offset(, -1) = Application.Max(Columns(1)) + 1
Else
Target.Offset(, -1) = ""
End If
End If
ERREXIT:
Application.EnableEvents = True
End Sub

Gruß
Rudi
Anzeige
AW: automatische Nummerierung
14.06.2019 14:13:01
haustein
Hallo Rudi
gibt es vielleicht noch eine möglichkeit in spalte 6 eine verknüppfung von spalte 3 und 4 einzubauen
AW: automatische Nummerierung
14.06.2019 14:18:38
UweD
Hallo
ungeprüft...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
On Error GoTo ERREXIT
Application.EnableEvents = False
If Target  "" Then
Target.Offset(, -1) = Application.Max(Columns(1)) + 1
Target.Offset(, 4) =  Target.Offset(, 1)& Target.Offset(, 2)
Else
Target.Offset(, -1) = ""
Target.Offset(, 4) = ""
End If
End If
ERREXIT:
Application.EnableEvents = True
End Sub

LG UweD
Anzeige
AW: automatische Nummerierung
14.06.2019 14:33:12
haustein
ganz komisch - bis gerade funktionierte das erste script noch - nun nicht mehr - makros sind eingeschaltet - datei geeschlossen und wieder geöffnet - die anderen vba code funzen
AW: automatische Nummerierung
14.06.2019 14:39:06
UweD
Hallo
dann hast du mittendrinn abgebrochen und die events sind nicht wieder aktiviert worden
einmal laufen lassen: 
Sub Test
Application.EnableEvents = True
End Sub

LG UweD
Anzeige
AW: automatische Nummerierung
14.06.2019 15:30:56
haustein
super klasse - lieben dank
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige