Funktion

Bild

Betrifft: Funktion
von: Günter
Geschrieben am: 15.03.2005 21:36:00
Hallo und Guten Abend !
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: oder alleinstehende < oder >,
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
Bild

Betrifft: AW: Funktion
von: Hajo_Zi
Geschrieben am: 15.03.2005 21:42:40
Hallo Günter,
warum neuer Beitrag. Denke doch auch mal an das Archiv. Wie soll man da die gesamte Lösung finden, wenn das in zig Beiträgen erfolgt.
Ich lehne sowas ab.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Funktion"