Moin Leute,
ich habe leider noch nie mit Instr gearbeitet, soweit gelesen, sollte eigentlich so gehen:
Dim Art As String
Art = Cells(zeile, 7)
Select Case Art
Case Is = InStr(1, Art, „AFPB“, 1): wert = „AFPB“
Case Is = InStr(1, Art, „AFAB“, 1): wert = „AFAB“
usw.
Die erste 1 soll doch sagen, ab welchen Zeichen in einer Zelle ich starten soll. Die zweite 1 soll definieren, das ich textlich und nicht binär suchen soll.
In den Zellen ist meist ein längerer Text als Beschreibung enthalten, in den immer mal diese Zeichenfolgen aber vorkommen.
Hab mir das ganze mit dem Debugger mal angeschaut. Leider erkennt er die Zeichen (wenn enthalten) nicht, sondern die ganze SelectCase Geschichte durch und findet nichts.
Welchen Fehler habe ich da gemacht?
Danke und VG
W3lcome