AW: Teildaten aus Zelle in andere Zelle
15.03.2005 15:00:54
Domke,
Hallo Günter,
Du hast beim ersten Mal Datenreihen geliefert, die gleich waren. So war auch die Abfrage relativ einfach. Wenn Du das nicht sicher stellen kannst, ist eine kleine VBA Lösung sinnvoller:
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!
Viel Erfolg
Frank.