Ein letztes Mal: Array
27.11.2005 11:51:44
andS
erstmal danke an alle die mir bisher so toll geholfen haben. Es scheint ja mehrere Möglichkeiten zu geben wie man was lösen kann!!
Ich möchte die for-Schleife bis t laufen lassen. Leider geht das so nicht...
Wenn ich anstatt: Dim ranges(100), Dim ranges() schreibe, bekomme ich eine Fehlermeldung. Auch Dim ranges(t) vor der for-schleife eingefügt läuft leider nicht...
Dim arr_length As Integer
Dim ranges(100) As String
Dim t As Integer
Dim j As Integer
t = 7
Do While (Cells(12, t).Value "")
t = t + 1
Loop
For j = 7 To t
ranges(j) = CStr(Cells(12, j).Value)
Next j
'arr_length = UBound(ranges)
'MsgBox UBound(ranges)
Wie muss das der Code richtig implementiert werden?
Gruß und Danke
Andi