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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen