Dynamisches Array
15.10.2018 23:18:44
Marc
ich kämpfe seit Stunden damit ein Array mit mehreren Zeilen zu erzeugen um dieses Später in einer Listbox darzustellen.
Im lokalen Fenster kann ich verfolgen wie sich das Array zunächst beim ersten positiven Suchergebnis (aus einem anderen Sheet) mit den gewünschten Werten füllt.
Wenn die Schleife beim nächsten positiven Suchergebnis mit Hilfe von "ReDim Preserve" die Anzahl der Zeilen im Array erweitern soll dann bekomme ich die Fehlermeldung, der "Index sei außerhalb des gültigen Bereichs".
Das ist der betreffende Teil des Codes:
Dim CoName as String
CoName = Inputbox("Wert suchen:")
Dim TSheet As Object
Set TSheet = ActiveWorkbook.Worksheets("Yahoo Tickersymbole")
Dim Zeilenzahl as Long
Zeilenzahl = TSheet.UsedRange.Rows.Count '
Dim Zeile As Long
Dim xVar()
For Zeile = 5 To Zeilenzahl
If InStr(1, TSheet.Cells(Zeile, 2).Value, CoName) > 0 Then
xVar = xVar + 1
ReDim Preserve vArray(0 To xVar, 2)
vArray(xVar, 0) = TSheet.Cells(Zeile, 1).Value
vArray(xVar, 1) = TSheet.Cells(Zeile, 2).Value
vArray(xVar, 2) = TSheet.Cells(Zeile, 3).Value
Else
End If
Next Zeile
Ist es grundsätzlich möglich die Anzahl der Zeilen in einem Array dynamisch zu erweitern? Wenn ja, wie muss ich den Code anpassen um das zu erreichen?
Viele Grüße