Zahl in Teile auflisten ?

[jokerjo1000]

Hallo,
brauche noch einmal Hilfe von einem Profi.
Habe jetzt 2 Stunden versucht es selber hin zu bekommen, jedoch ohne Erfolg.
Bevor ich jetzt versuche es zu schildern hänge ich lieber eine Beispieldatei mit ran.
Dort ist mein Problem beschrieben. Die Datei hat 2 Arbeitsblätter.

Ich hoffe ihr könnt mir auch bei diesem Problem einmal helfen?

Vielen lieben Dank
jokerjo1000

[Klaus-Dieter]

Hallo,

als VBA-lastiger Anwender könnte ich ein Makro anbieten, on man das mit einer Formel lösen könnte, weiß ich nicht.

[jokerjo1000]

Bin für jede Hilfe dankbar :22:

[Ego]

Hallo j...,

hier ein Beispiel:

[Klaus-Dieter]

Hallo,

dann versuche es mal damit:

Code:

Sub werte()
   Dim lngZeile As Long
   Dim intZahl As Integer
   For lngZeile = 2 To Range("A" & Rows.Count).End(xlUp).Row
       If Cells(lngZeile, 2) <> Cells(lngZeile - 1, 2) Then intZahl = intZahl + 1
       Cells(lngZeile, 3) = Cells(lngZeile, 1) & "/" & intZahl
   Next lngZeile
End Sub

[jokerjo1000]

Hallo Klaus Dieter,
dein VBA Code ist fast richtig. Leider wird in der Spalte Ziel das Teilstück immer weiter gezählt. Jedoch soll es immer wieder bei 1 beginnen.
Habe noch einmal ein Beispiel angehängt.

Trotzdem schon einmal danke !!!



Auch Ego vielen lieben Dank...... dein Vorschlag würde auch gehen !!!

[Klaus-Dieter]

Hallo,

wer lesen kann, ist im Vorteil. So sollte es gehen:

Code:

Sub werte()
  Dim lngZeile As Long
  Dim intZahl As Integer
  For lngZeile = 2 To Range("A" & Rows.Count).End(xlUp).Row
      If Cells(lngZeile, 2) <> Cells(lngZeile - 1, 2) Then intZahl = intZahl + 1
      If Cells(lngZeile, 1) <> Cells(lngZeile - 1, 1) Then intZahl = 1
      Cells(lngZeile, 3) = Cells(lngZeile, 1) & "/" & intZahl
  Next lngZeile
End Sub

[jokerjo1000]

PERFEKT !!!

Danke danke :19: :19: :19: 

Beiden natürlich.
Jetzt muss ich nur versuchen es zu verstehen