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
Danke und Grüße
Hendrik
Anzeige