Office: (Office 2010) Fortlaufende Nummerierung wenn gleicher Wert

Hallo zusammen,
ich hoffe jemand kann mir helfen, weil ich momentan auf dem Schlauch stehe.
Ich habe eine Tabelle mit gut vierzig Namen und möchte in einer seperaten Spalte "Nummerierung" nun sobald ein Name sich wiederholt eine fortlaufende Nummerierung haben. Sprich wenn das erste mal der Name "Max" in der Spalte steht, soll nichts in der Spalte "Nummerierung" stehen. Wenn dieser Name sich nun im laufe der Spalte wiederholt, soll nun eine "2" stehen. Das ganzen analog mit den anderen Namen...
Hat da jemand eine Idee oder einen Denkanstoß?
Bsp:
Max
Tom
Tim
Max 2
Tim 2
Tom 2
Max 3

Vielen Dank!

:)

 

Hallo,

Code:

Formel dann runterkopieren.

Grüße
EarlFred

 

Moin,

Tabelle1

	A	B
1	Max	1
2	tim	1
3	Tim	2
4	Max	2
5	Tim	3
6	Tiom	1
7	Max	3

Zelle	Formel
B1	=ZÄHLENWENN($A:A1;A1)

Excel Tabellen im Web darstellen >>

 

Vielen Dank EarlFred, klappt perfekt.

 

Hallo lev_svb,

so könnte das funktionieren:

Option Explicit Public Sub Find_Methode() Dim WkSh          As Worksheet  ' das Quell-Tabellenblatt - die Herkunft Dim rZelle        As Range      ' die Zelle mit dem gefundenen Suchbegriff Dim sFundst       As String     ' die erste Fundstelle des Suchbegriffs Dim sSuchbegriff  As String     ' der Suchbegriff Dim lLetzte       As Long       ' die letzte belegte Zeile in Spalte A Dim lZeile        As Long       ' die lfd. Zeile in der For/Next Schleife Dim iNummer       As Integer    ' die lfd. Nummer    Set WkSh = ThisWorkbook.Worksheets("Tabelle2") ' den Tabellenblattnamen ggf. anpassen!    Application.ScreenUpdating = False ' kein Bildschirm-Update = kein flackern    lLetzte = WkSh.Cells(WkSh.Rows.Count, 1).End(xlUp).Row    WkSh.Range("B2:B" & lLetzte).ClearContents    With WkSh.Columns(1) ' im Tabellenblatt in der Spalte 1 = A suchen       For lZeile = 2 To lLetzte          If WkSh.Range("B" & lZeile).Value = "" Then             sSuchbegriff = WkSh.Range("A" & lZeile).Value             iNummer = 1             Set rZelle = .Find(What:=sSuchbegriff, LookAt:=xlWhole, LookIn:=xlValues)             If Not rZelle Is Nothing Then ' der Suchbegriff wurde gefunden                sFundst = rZelle.Address   ' die erste Fundstelle merken/speichern                Do                   ' Hier werden die gefundenen Werte verarbeitet                   WkSh.Range("B" & rZelle.Row).Value = iNummer                   iNummer = iNummer + 1                   Set rZelle = .FindNext(rZelle) ' den evtl. nächsten Begriff suchen                Loop While Not rZelle Is Nothing And rZelle.Address <> sFundst              Else                'MsgBox "Der Begriff  """ & sSuchbegriff & """  wurde nicht gefunden.", _                   48, "   Hinweis für " & Application.UserName             End If          End If       Next lZeile       For lZeile = 2 To lLetzte ' die 1 wieder löschen          If WkSh.Range("B" & lZeile).Value = 1 Then _             WkSh.Range("B" & lZeile).Value = ""       Next lZeile    End With    Application.ScreenUpdating = True ' den Bildschirm-Update wieder zulassen    Set WkSh = Nothing ' die Ressourcen wieder freigeben    Set rZelle = Nothing End Sub

Code eingefügt mit Syntaxhighlighter 4.15

Gruß Peter

 

Formel dann runterkopieren.

Grüße
EarlFred

Klappt doch noch nicht ganz. Wenn ein Name zum zweiten mal vorkommt, soll dann eine 2 stehen und nicht eine 1. Wie muss ich das modifizieren?

 

Hallo,

bei meiner Beispieltabelle, die genauso aussieht wie Dirks (mückes): Garnicht.

Wenn Deine Tabelle anders aussieht als meine, dann zeig sie doch mal her.

Grüße
EarlFred

 

Ich habe einen kleiner Fehler gemacht beim anpassen an meine Tabelle. Funktioniert jetzt. Danke!

 

Hallo Zusammen,

der Beitrag weiter oben ist zwar schon etwas älter, aber vielleicht kann mir jemand helfen *Smilie*confused.gif*

Ich habe ein ähnliches Problem und zwar:

Ich bekomme diverse Benutzernummern x-fach als Datenpaket zugeschickt. Ich verbildliche das mal kurz, damit man besser versteht um was es geht:

Spalte A Spalte B Spalte C Spalte D
456789456789 13.2.16 07:38:21 EF
456789456789 13.2.16 07:45:21 AF
456789456789 15.2.16 17:45:21 EF
456789456789 16.2.16 08:25:24 AF
123456789456 13.2.16 09:45:21 EF
123456789456 13.2.16 11:45:21 AF
123456789456 13.2.16 14:48:21 EF
123456789456 14.2.16 17:45:21 AF

usw.

Jetzt möchte ich gerne alle Zeiten auswerten. (EF steht für Einfahrt und AF für Ausfahrt). Dafür habe ich mir schon eine kleine Tabelle gebastelt, die das kann. Allerdings ist mein grosses Problem, dass sobald ein Wert in Spalte A mehr als zweimal vorkommt meine Auswertung nicht mehr funktioniert.

Frage: Wie bekomme ich es hin, dass immer ein individueller Datensatz markiert wird? Ich hoffe ich konnte irgendwie klarmachen was ich meine *rolleyes.gif*

So müsste es meiner Meinung nach aussehen am Ende:

Spalte A Spalte B Spalte C Spalte D Spalte E
456789456789 13.2.16 07:38:21 EF 1
456789456789 13.2.16 07:45:21 AF 1
456789456789 15.2.16 17:45:21 EF 2
456789456789 16.2.16 08:25:24 AF 2
123456789456 13.2.16 09:45:21 EF 1
123456789456 13.2.16 11:45:21 AF 1
123456789456 13.2.16 14:48:21 EF 2
123456789456 14.2.16 17:45:21 AF 2

Es sind über 130'000 Daten, deswegen wäre ich super froh, wenn mir jemand helfen könnte!!

Schon mal vielen Dank für eure Zeit und beste Grüsse *Smilie *Smilie *Smilie

 

So,
jetzt würde ich gerne diesen Beitrag wieder löschen, da der Fehler nur in einer einzigen längeren Reihe falsch war, alle anderen wurden richtig gezählt - vlt. kann mir jemand kurz sagen, wo ich das Ding ins Nirvana verfrachten kann??


Hallo zusammen,
bei mir funktioniert die Formel "Zählenwenn" super - mit einer blöden Ausnahme: Excel zählt von 1-10 und fängt dann wieder bei 1 an, obwohl die Reihe noch nicht zuende ist. Kann man das irgendwie ändern/abschalten, so dass das Zählen bei identischen Werten mit 11, 12 ... weitergeht?

Danke schon mal wieder für eure super Ideen *mrcool

VG, Gabi

 

Beitäge kann nur der Amin löschen.

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten