Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1696to1700
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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)

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
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
AW: automatische Nummerierung
14.06.2019 15:30:56
haustein
super klasse - lieben dank

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige