Instr suche und Rückgabe
01.12.2015 16:31:39
Julian
ich habe ein kleines Problem mit folgenden Code:
Function tifs(Text As String, Zelle As Range) As String
Dim F As String, r As String
F = Zelle.Formula
If InStr(1, F, Text) 0 Then
' r = InStr(1, F, "!")
tifs = Mid(F, InStr(1, F, Text) + 6, InStr(1, F, "!") - 1)
Stop
End If
End Function
und zwar gibt dieser einen Falschen Wert zurück.
Hier soll eine Formel per VBA nach 2 Zeichen durchsucht werden. Einmal "LEFT" und einmal "!".
Der Komplette Text der untersucht werden soll ist:
=CONCATENATE("F ",LEFT('4'!B$6,3),"_",'4'!B12,"_",'4'!E$10)
Ziel wäre es das Left zu finden und bis zum ersten ! auszulesen.
Das zeigt er mir auch an das er das L von Left in der 19. Position gefunden hat und in der 27. Position das !. Allerdings gibt er mir den Text bis zum letzten Ausrufezeichen zurück.
Kann mir da jemand helfen?