Sub other1()
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)) = iEinheit Then
iErgebnis = iErgebnis + 1
End If
Next
Sheets("Tabelle2").Cells(iEinheit, 1) = iErgebnis
iErgebnis = 0
Next
End Sub
Er meckert an dem "If Right (Cells ...)" herum und meint, das sei nicht optional. Weiß jemand, was ihm da nicht gefällt ?
Ein anderer Ansatz von Andre:
Sub other2()
...
Dim count_1%, count_2%, count_3%, count_4%
...
Select Case Right(Cells(lgRow, 1), 1)
Case 1
count_1 = count_1 + 1
Case 2
count_1 = count_2 + 1
Case 3
count_1 = count_3 + 1
Case 4
count_1 = count_4 + 1
End Select
...
funktioniert ebenfalls nicht. Habe versucht:
Set wks = Worksheets("Tabelle2")
lgRow = 1
lgZiel = 1
iCount = 1
zu integrieren, damit das ganze in Tab2 ausgegeben wird, aber entweder zeigt er nichts an, oder er meldet einen Laufzeitfehler.
Für Hilfe wäre ich sehr dankbar.
Gruß
Dari