Array läuft über. Warum?
18.08.2014 14:41:00
Hendrik
folgende Funktion soll mir sagen, ob eine Spalte in einer Tabelle gefunden wurde:
Function spalteInTabelle(strSpalte As String) As Boolean
Dim i As Long
spalteInTabelle = False
For i = 1 To UBound(strArrSpalten)
Debug.Print LBound(strArrSpalten)
Debug.Print UBound(strArrSpalten)
If strArrSpalten(i, 0) = strSpalte Then
spalteInTabelle = True
Exit For
End If
Next i
End Function
Alle Spalten der Tabelle stehen im Array strArrSpalten. Die Debug-Ausgabe zeigt als LBound 1 _ und als UBound 78. Trotzdem bricht mir der Code an der Stelle
If strArrSpalten(i, 0) = strSpalte Then
(i=1) ab ("Indes außerhalb des gültigen Bereichs"). Ich kann mir das nicht erklären. Wer kann das? :)Danke und Grüße
Hendrik