Will nicht ausschliessen, dass es noch effizienter ginge, aber sollte funktionieren.
Gruss
Chris
Option Explicit
Private Sub CommandButton1_Click()
Dim AnzahlZeilen As Long, Zaehler As Long, i As Long, ii As Long
Dim Suchbegriff As String
AnzahlZeilen = Range("B65536").End(xlUp).Row
Range("C2:C" & AnzahlZeilen).ClearContents
For i = 2 To AnzahlZeilen
Zaehler = 0
Suchbegriff = Cells(i, 2)
If Cells(i, 3) = "" Then
For ii = 2 To AnzahlZeilen
If Cells(ii, 2) = Suchbegriff Then Zaehler = Zaehler + 1
Next ii
For ii = 2 To AnzahlZeilen
If Cells(ii, 2) = Suchbegriff Then Cells(ii, 3) = Zaehler
Next ii
End If
Next i
End Sub
ich bin beeindruckt.
Super vielen Dank für deine Mühe
Einen schönen Abend wünscht
Mike
wenn Dich ein Zählenwenn im Makro nicht stört geht es beispielsweise so:
Gruß
Peter
Auch eine feine Lösung. Meinen Dank auch dir!!
Nein, "ZählenWenn"...damit wollte ich lediglich zum Ausdruck bringen, dass ich keine Excel-Formel brauchte.
Viele Grüße und besten Dank
Mike