ungefähr so:
Gruß
Martin Beck
es wurde schon UBound vorgeschlagen, das würde in meinem Beispiel aber 17 liefern, und das willst Du ja wohl nicht.
Mit Do-Loop wie folgt:
Gruß
Martin Beck
MsgBox WorksheetFunction.Count(arr)
Gruß HW
Gruß HW
hast recht. Das Rad wurde neu erfunden, da ich nicht wußte, daß es das Rad schon gibt. ;-) Wieder was gelernt.
Im übrigen glaube ich, daß Sina sich ohnehin verrennt mit Ihrer Aufgabenstellung (siehe mal den länglichen Thread weiter unten).
Gruß
Martin Beck
aus der Hilfe zu UBound:
Gibt einen Wert vom Typ Long zurück, der den größten verfügbaren Index für die angegebene Dimension eines Datenfeldes enthält.
Es hängt also davon ab, wie Du den Array dimensionierst. In meinem Bespiel würde UBound ein falsches Ergebnis liefern. Nimm Hans' Lösung, die geht in jedem Fall.
Aber: Wie schon gesagt, bin ich der Meinung, daß der Weg über Arrays für Deine Aufgabenstellung ohnehin in die Irre führt.
Gruß
Martin Beck
Gruß HW