Anzahl ermitteln
03.05.2005 15:47:36
artuk
habe folgendes Problemchen,
ich habe eine Zeile mit Zahlen,jedoch kommen in dieser Zeile manche werte doppelt oder dreifach vor.
Nun brauche ich unbedingt ein Makro,welches mir in die Zeile daneben, die Anzahl der gleichen Werte anzeigt.
habe dieses Makro aber das funktioniert nicht richtig
Sub zaehlen()
Dim zeile As Integer
Dim zaehler As Integer
zeile = 2
zaehler = 1
Do Until Sheets("Tabelle3").Cells(zeile, 1) = ""
If Mid(Sheets("Tabelle3").Cells(zeile, 1), 4, 2) = Mid(Sheets("Tabelle3").Cells(zeile - 1, 1), 4, 2) Then
zaehler = zaehler + 1
Else
Sheets("Tabelle3").Cells(zeile - 1, 2) = zaehler
zaehler = 1
End If
zeile = zeile + 1
Loop
End Sub
kann man hier gut sehen :
https://www.herber.de/bbs/user/22115.xls
Was ist hier falsch?
MFG
artuk