kann mir jemand helfen. Mein Makro:
Sub zaehlen3()
Dim lgRow As Long
Dim lgZiel As Long
Dim wks As Worksheet
Dim iCount As Integer
Set wks = Worksheets("Tabelle2")
lgRow = 1
lgZiel = 1
iCount = 1
Do
If Right(Cells(lgRow + 1, 1), 1) < Right(Cells(lgRow, 1), 1) Then
wks.Cells(lgZiel, 1) = "Einheit " & lgZiel
wks.Cells(lgZiel, 2) = iCount
lgZiel = lgZiel + 1
iCount = 0
End If
iCount = iCount + 1
lgRow = lgRow + 1
Loop Until IsEmpty(Cells(lgRow, 1))
End Sub
zählt meine Daten und fasst _1 bis _4 zusammen :
R111_1
R111_1
R112_2
R113_3
R144_4
R112_1
R112_2
R113_3
R114_4
es wird ausgegeben:
Einheit 1 (Anzahl Elemente): 5
Einheit 2 (Anzahl Elemente): 4
Jetzt bräuche ich für eine andere Auswertung nicht die Anzahl _1 bis _ 4 sondern die Anzahl aller _1, _ 2, _3, _4. Laut oberen Beispiel gibt es:
Einheit 1 (Anzahl aller _1): 3
Einheit 2 (Anzahl aller _2): 2
Einheit 3 (Anzahl aller _3): 2
Einheit 4 (Anzahl aller _4): 2
habe versucht oberen Code umzubauen, Versuch ist aber gescheitert. Steig da jemand durch ?
Gruß und Dank
Dari