Arraylänge abfragen - Laufzeitfehler 424
Markus
ich will die Arraylänge abfragen, damit ich nachher per Schleife Werte per Index zuweisen kann.
Wie bekomme ich die Arraylänge?
Hatte es wie folgt probiert, es kommt beim Auführen der Laufzeitfehler 424 'Objekt erforderlich.
(Entscheidende Codezeile ist fett)
Sub Makro1()
anzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range("A4:A" & anzahl).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("A4:A" & anzahl), CopyToRange:=Range("AG3"), Unique:=True
Columns("AG:AG").Select
KA_TOP7_ArrayCountry = Array()
For a = 0 To KA_TOP7_ArrayCountry.Length
KA_TOP7_ArrayCountry(a) = Range("AG" & a)
Next a
End Sub
Anzeige