Count
16.06.2003 16:44:45
Dari
stecke ziemlich fest. 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. Trotz Flußdiagramm, komme ich auf keinen grünen Zweig.
Steigt da jemand durch ??? Bin schon am rotieren ...
Gruß und Dank
Dari