Funktion, wo einstellen ?
15.03.2005 20:53:27
Günter
Ich habe von Frank folgende Funktion bekommen:
(Frage: Wo soll ich die Funktion bei VBA einstellen bzw. reinkopieren ?
Gruss
Günter
Public
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 = "#Kuerzel fehlt#"
Exit Function
End If
If Right(strKuerzel, 1) <> "=" Then strKuerzel = strKuerzel & "="
intPos1 = InStr(1, strText, strKuerzel, vbTextCompare)
If intPos1 = 0 Then
GetText = "#Kuerzel nicht gefunden#"
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
In der Tabelle gibst Du dann =PERSONL.XLS!GetText(J1;"st") ein, wobei Du den Namen an Deine Arbeitsmappe anpassen musst!