Zählmakro !
28.08.2003 10:44:45
Dari
ich bekam hier im Forum folgendes Makro:
'Auswertung
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
Das Makro zählt alle Endungen _ 1 bis _4 und gibt sie aus:
_1 = 15
_2 = 56
_3 = 37
_4 = 12
Nun müßte ich das Makro erweitern um die Endung _0. Kann mir da jemand helfen ?
Außerdem bräuchte ich noch einen Tip für eine Befehlszeile = Wenn keine nummerische Endung >>> dann ignorieren. Bis jetzt stürzt das Makro ab (Laufzeitfehler).
Gruß
Dari