Zählmakro !
22.08.2003 16:05:05
Dari
Makro 1:
--------
Set wks = Worksheets("Tabelle1")
lgRow = 9
lgZiel = 1
iCount = 1
Do
If Right(Cells(lgRow + 1, 1), 1) < Right(Cells(lgRow, 1), 1) Then
wks.Cells(lgZiel, 1) = "Einzelsubstrat " & 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))
zählt alle Endungen _1 bis _4 und fasst sie zu einer Einheit zusammen.
Makro 2:
--------
iCount = Range("A65536").End(xlUp).Row
For iEinheit = 1 To 5
For iAnzahl = 9 To iCount
If Right(Cells(iAnzahl, 1), 1) = iEinheit Then
iErgebnis = iErgebnis + 1
End If
Next
Sheets("Auswertung").Cells(iEinheit, 2) = iErgebnis
iErgebnis = 0
Next
zählt alle _1, dann alle _2 , usw.
Zu meiner Schande muss ich gestehen, dass ich bei beiden Makros nicht so recht durchblicke. Nun habe ich das Problem, dass beide Makros um _0 erweitert werden müssen. Bei dieser Geschichte bräuchte ich Hilfe.
Ein zweites Problem ist, dass die Makros ab und zu abstürzen, weil die Endungen bei einer Sorte Daten nicht nur _1, _2,_3 oder _4 sind sondern die Endung _AGPD auftaucht, die keinerlei Bedeutung hat. Die sollte das Makro ignorieren.
Danke im Voraus an alle Helfer
Dari