Array füllen
09.12.2002 15:47:04
Frank
ich möchte ein Array mit Werten aus einem Worksheet füllen. Bisher hab ich diesen Code geschrieben, der leider nicht funktioniert. Kann mir jemand weiter helfen?
Dim wksSplErst As Worksheet
Dim aNamen() As Variant
Dim iAnzTip, iRow, iCol as Integer
Set wksSplErst = Worksheets("Spielplan_Erstellen")
iAnzTip = wksSplErst.Cells(3, 3)'gibt einen Integerwert zwischen 1 und 61 aus
iRow = 5
iCol = 3
For i = 0 To iAnzTip
aNamen(i) = Array(wksSplErst.Cells(iRow, iCol))
iRow = iRow + 1
Next i
Gruß Frank