Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1344to1348
1344to1348
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufnummer automatisch anfügen

Forumthread: Laufnummer automatisch anfügen

Laufnummer automatisch anfügen
07.01.2014 17:06:58
Adrian
Hallo zusammen,
ich hätte da eine kleine Frage, dich ich trotz ausprobieren und grübeln nicht selber beantworten kann wegen meiner bescheidenen Excel-Kenntnisse.
Ist es möglich, bei mehrmals vorkommenden identischen Werten in unterschiedlichen Zeilen mittels einer Funktion eine aufsteigende Laufnummer anzugeben?
Die Sache erklärt sich leichter anhand eines konkreten Beispiels, das ich hier angehängt habe:
https://www.herber.de/bbs/user/88711.xlsx
Wäre super lieb von Euch, mir hier weiterzuhelfen!
Viele Grüsse und ein gutes neues Jahr!
Adrian

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Laufnummer automatisch anfügen
07.01.2014 17:55:02
WF
Hi,
schreib in N19:
=ZÄHLENWENN(I$19:I19;I19)
runterkopieren
formatiere die Zellen mit Standard;;
um Nullen nicht anzuzeigen
WF

AW: Laufnummer automatisch anfügen
07.01.2014 18:06:10
UweK
Hallo Adrian,
meinst evtl. so?
https://www.herber.de/bbs/user/88712.xlsm
Grüße
Uwe

Anzeige
AW: Laufnummer automatisch anfügen
07.01.2014 18:42:46
UweK
Da ich annehme das dein Terminkalender mehr als 8 Zeilen umfasst, müsste der Code entsprechend angepasst werden. 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
For i = 19 To Cells(Rows.Count, 9).End(xlUp).Row
If Cells(i, 9)  "" Then
Cells(i, 14) = 1
If Cells(i, 9) = Cells(i - 1, 9) Then
Cells(i, 14) = Cells(i - 1, 14) + 1
End If
End If
Next i
End Sub
VG Uwe

Anzeige
AW: Laufnummer automatisch anfügen
07.01.2014 19:01:42
Adrian
Lieber Uwe,
super, Danke! Funktioniert bestens!
Einmal mehr: ihr seid echt cool!
Viele Grüsse,
Adrian

AW: Laufnummer automatisch anfügen
07.01.2014 18:11:31
Adrian
Hi WF,
herzlichen Dank für den Input. Dies funktioniert leider nicht, da mir ZÄHLENWENN dann folgendes angibt:
Eintrag1 Wert1 3
Eintrag2 Wert1 3
Eintrag3 Wert2 1
Eintrag4 Wert1 3
statt:
Eintrag1 Wert1 1
Eintrag2 Wert1 2
Eintrag3 Wert2 1
Eintrag4 Wert1 3
Gibt es eine andere Lösung dazu?
Nochmal vielen Dank für den Versuch;-).
Gruss,
Adrian

Anzeige
Blödsinn
07.01.2014 18:15:44
WF
... dann hast Du das Förmelchen falsch abgeschrieben.
WF
;

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