Formel funktioniert komischweise nicht
18.01.2016 11:02:31
muehli
ich habe ein Problem bei folgendem Code:
ii = 0
For y = 0 To 15
LetzteZeileErgebnis = Cells(50000, 265 + y).End(xlUp).Row
For x = 4 To LetzteZeileErgebnis
For i = 1 To LetzteZeile
If Left(Cells(x, 265 + y).Value, InStr(1, Cells(x, 265).Value, ".") - 1) = i _
Then
ReDim Preserve ArraySucheErweitertErgebnisse(ii)
ArraySucheErweitertErgebnisse(ii) = Cells(x, 265).Value
ii = ii + 1
End If
Next
Next
Next
In der angesprochenen Zelle steht beispielsweise:
13.1.1
Somit müsste dieser Wert bei i = 13 in das ArraySucheErweitertErgebnisse geschrieben werden, jedoch überspringt er hier einfach den Code hinter der IF-Bedingung.
Wo liegt hier mein Fehler?
Freundliche Grüße und danke
Muehli
Anzeige