Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Teildaten aus Zelle in andere Zelle

Teildaten aus Zelle in andere Zelle
14.03.2005 13:16:50
Günter
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teildaten aus Zelle in andere Zelle
15.03.2005 09:40:07
Volker
Hallo Günter,
schau Dir mal die Tabellenfunktionen
FINDEN, TEIL und ev. WENN an.
Gruß
Volker
AW: Teildaten aus Zelle in andere Zelle
15.03.2005 09:44:03
Domke,
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.
AW: Teildaten aus Zelle in andere Zelle
15.03.2005 13:10:19
Günter
Vielen Dank Frank....
Gruss
Günter
AW: Teildaten aus Zelle in andere Zelle
15.03.2005 13:46:45
Günter
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
Anzeige
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.
Anzeige
AW: Teildaten aus Zelle in andere Zelle
15.03.2005 15:10:15
Günter
Vielen Dank Frank für Deine Mühe !!!!
Gruss
Günter

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige