Problem mit InStr()
01.02.2006 10:13:52
Tobias
ich habe ein Problem mit der InStr()-Funktion.
In der Code habe ich folgenden Abschnitt geschrieben:
Zelle = ActiveSheet.Cells(TempRow, TempCol + 3).Value
Position = InStr(1, Zelle, ",", 1)
If Position 0 Then
' Komma gefunden
Position = Position + 1
Position1 = InStr(Positon, Zelle, "5", 1)
If Position1 = 1 Then
' Zahl "5" direkt hinter dem Komma gefunden
...
End If
...
End If
Vor der zweiten InStr()-Funktion, bekommt die Integer-Variable "Position" eine bestimmte Zahl. Diese nun ermittelte Zahl wird als erste Argument für die InStr()-Funktion übergeben.
ABER:
Dieses Argument ist jedoch LEER!
Aus diesem Grund wird die Error-Meldung ausgegeben.
Wenn ich stattdessen die Variable "Position" durch eine beliebige Zahl ersetze:
Position1 = InStr(4, Zelle, "5", 1)
Dann läuft es einwandfrei.
Warum?
Gruss
Tobias