textformel

[Dirk Ruchatz]

Moin Ole,

gibt es eine möglichkeit via einer funktion excel folgendes zu sagen:

nimm denn text rechts vom letzten punkt in zellle XY ?`

beispiel:

ursprung: blabla.blubblub.blib.nase
ergebniss: nase

was du brauchst ist eine benutzerdefinierte Funktion mit der Funktionalität "Suchen von rechts".

Hier ist sie <g>:

Function SuchenVonRechts(Suchtext, Text As String, erstes_Zeichen As Integer) As Integer
    Dim Pos As Variant
    Dim Gefunden As Integer
    Gefunden = erstes_Zeichen - 1
    On Error Resume Next
    Pos = WorksheetFunction.Search(Suchtext, Text, erstes_Zeichen)
    On Error GoTo 0
    If Pos > 0 Then
        Gefunden = SuchenVonRechts(Suchtext, Text, Pos + 1)
    End If
    SuchenVonRechts = Gefunden
End Function

Diese wird dann in der Zelle, in der du die letzten Zeichen haben willst, wie folgt angesprochen:

=TEIL(A1;SuchenVonRechts(".";A1;1)+1;LÄNGE(A1))

wobei die A1 natürlich jeweils durch die Zelle zu ersetzen sind, in der der Newsgroup-Name steht.
Diese Formel brauchst du dann nur noch nach unten zu kopieren & schon bist du fertig...

Gruß
Dirk

PS: Beispieldatei ist per Mail unterwegs!