Habe für eine Auswertung mal zwei Makros bekommen, die folgendes tun:
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