Hallo, Zusammen,

sieht jemand auf Anhieb, wie ich dieses Zählmakro verändern muss, damit das Makro nicht bei Zeile A1 sondern erst bei Zeile A9 mit dem Zählen beginnt ?

Sub count()

Dim iEinheit As Integer
Dim iAnzahl As Integer
Dim iCount As Integer
Dim iErgebnis As Integer

iCount = Range("A65536").End(xlUp).Row

For iEinheit = 1 To 4
For iAnzahl = 1 To iCount
If Right(Cells(iAnzahl, 1), 1) = iEinheit Then
iErgebnis = iErgebnis + 1
End If
Next
Sheets("Tabelle2").Cells(iEinheit, 2) = iErgebnis
iErgebnis = 0
Next

Gruß
Ellen