Teildaten aus Zelle in andere Zelle

Bild

Betrifft: Teildaten aus Zelle in andere Zelle von: Günter
Geschrieben am: 14.03.2005 13:16:50

Guten Tag!

Ein Problem:
In einer Exceldatei habe ich in Spalte J Einträge stehen.
ein Teil dieses Textes soll in Spalte M.

Als Beispiel und zur Veranschaulichung habe ich ein Miniauszug
auf den Server gestellt.

Gruss
Günter

https://www.herber.de/bbs/user/19635.xls

Bild


Betrifft: AW: Teildaten aus Zelle in andere Zelle von: Volker
Geschrieben am: 15.03.2005 09:40:07

Hallo Günter,

schau Dir mal die Tabellenfunktionen

FINDEN, TEIL und ev. WENN an.

Gruß
Volker


Bild


Betrifft: AW: Teildaten aus Zelle in andere Zelle von: Domke, Frank
Geschrieben am: 15.03.2005 09:44:03

Hallo Günter,

für Spalte L (Straße) müsste es so gehen:
=GLÄTTEN(TEIL(J1;SUCHEN("st=";J1;1)+3;SUCHEN("hn=";J1;1)-SUCHEN("st=";J1;1)-3))

für Spalte M (Hausnummer) müsste es so gehen:
=GLÄTTEN(TEIL(J1;SUCHEN("hn=";J1;1)+3;SUCHEN("gn=";J1;1)-SUCHEN("hn=";J1;1)-3))

Viel Erfolg
Frank.


Bild


Betrifft: AW: Teildaten aus Zelle in andere Zelle von: Günter
Geschrieben am: 15.03.2005 13:10:19

Vielen Dank Frank....


Gruss
Günter


Bild


Betrifft: AW: Teildaten aus Zelle in andere Zelle von: Günter
Geschrieben am: 15.03.2005 13:46:45

Hallo Frank oder wer helfen könnte,

ein Teil (Spalte L) hat funktioniert.
In Spalte M gibt es Probleme mit der Hausnr.

Kannst Du helfen ?

Hier mein Test.

https://www.herber.de/bbs/user/19694.xls


Gruss
Günter


Bild


Betrifft: AW: Teildaten aus Zelle in andere Zelle von: Domke, Frank
Geschrieben am: 15.03.2005 15:00:54

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.


Bild


Betrifft: AW: Teildaten aus Zelle in andere Zelle von: Günter
Geschrieben am: 15.03.2005 15:10:15

Vielen Dank Frank für Deine Mühe !!!!


Gruss
Günter


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Teildaten aus Zelle in andere Zelle"