Tschuldigung, wenn ich einen neuen Thread aufmache.
Folgendes:
Jetzt habe ich unten genannte Funktion ans Laufen gebracht (mithilfe
von Hajo).
Kann man in diese Funktion vielleicht folgendes integrieren:
Ignoriere (oder nicht Darstellen) die gefundenen Texte/Strings in der Darstellung:
1.) Alle mit (also Spitzklammer auf und zu und alles was zwischen
den Spitzklammern steht).
2.) Alleinstehende Spitzklammern.
Das Problem ist, dass in der zu durchsuchende Spalte z.B. folgendes
steht:
Hier die Funktion:
Function GetText(strText As String, strKuerzel As String) As String
Dim intPos1 As Integer
Dim intPos2 As Integer
GetText = ""
If Len(strText & "") = 0 Then Exit Function
If Len(strKuerzel & "") = 0 Then
GetText = ""
Exit Function
End If
If Right(strKuerzel, 1) <> "=" Then strKuerzel = strKuerzel & "="
intPos1 = InStr(1, strText, strKuerzel, vbTextCompare)
If intPos1 = 0 Then
GetText = ""
Exit Function
Else
intPos2 = InStr(intPos1 + 3, strText, "=", vbTextCompare)
If intPos2 > 0 Then
GetText = Trim(Mid(strText, intPos1 + 3, intPos2 - intPos1 - 5))
Else
GetText = Trim(Mid(strText, intPos1 + 3))
End If
End If
End Function
Gruss
Günter