Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1684to1688
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
Inhaltsverzeichnis

Werte innerhalb einer Zelle trennen

Werte innerhalb einer Zelle trennen
17.04.2019 09:14:18
Michael
Hallo liebe Excel Freunde ich habe folgendes Problem.
Ich habe in einer CSV Datei verschiedene Bilder in einer Spalte und möchte den Inhalt geordnet extrahieren, dabei gibt es viele unterschiedliche Konstellationen, sodass ich mit meiner Formel LINKS und FINDEN nicht sehr weit komme. Folgende Szenarien gibt es:
Bild1.jpg:Beschreibung1,Bild2.jpg:Beschreibung2,Bild3.jpg:Beschreibung3
Bild1.JPG,Bild2.jpg,Bild3.jpg
Bild1.jpg,Bild2.jpg:Beschreibung2,Bild3.png
Bild1:jpg:Beschreibung1
Bild1.jpg:Beschreibender Text, mit Komma,Bild2.jpg:Beschreibung2
Bild1.jpeg
Zu allen Überfluss kann in den Beschreibungen auch noch Kommata vorkommen, als auch alle möglichen Bildendungen wie .jpeg .png .JPG .gif. Leider sind auch die BIldnamen immer unterschiedlich lang.
Da ich eine Menge Daten habe, habe ich keine Chance etwas von Hand zu machen. Habt Ihr eine Idee, wie ich jeden Bildname in einer separaten Spalte und jede Beschreibung in einer separaten Spalte bekomme?
Danke für Eure Hilfe

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

Betreff
Datum
Anwender
Anzeige
AW: Werte innerhalb einer Zelle trennen
17.04.2019 10:05:02
Daniel
Hi
im Prinzip so:
1. folgender Code in ein allgemeines Modul
damit bekommst du eine Funktion, welche dir den Doppelpunkt als Trennzeichen nach jeder Dateiendung und vor jedem Dateinamen einfügt.
im Array musst du alle möglichen Dateierweiterungen eintragen Function TrennzeichenSpezial(txt As String) As String Dim BildKürzel Dim PosD As Long Dim PosK As Long For Each BildKürzel In Array(".jpg", ".JPG", ".jpeg", ".gif", ".png") txt = Replace(txt, BildKürzel, BildKürzel & ":") Next txt = Replace(txt, "::", ":") PosD = InStr(txt, ":") Do PosD = InStr(PosD + 1, txt, ":") If PosD = 0 Then Exit Do PosK = InStrRev(txt, ",", PosD) Mid(txt, PosK, 1) = ":" Loop TrennzeichenSpezial = txt End Function
2. schreibe in die Zelle B1 die Formel und ziehe sie nach unten: =TrennzeichenSpezial(A1)
3. kopiere die Spalte B und füge sie an gleicher Stelle als Wert ein.
4. Wende auf die Spalte B die Funktion DATEN - DATENTOOLS - TEXT IN SPALTEN an und wähle den Doppelpunkt ":" als Trennzeichen.
damit sollten dann alle Dateinamen in einer eigenen Spalte und die Beschreibungen in der Spalte daneben stehen.
Gruß Daniel
Anzeige
AW: Werte innerhalb einer Zelle trennen
17.04.2019 10:41:49
Michael
Vielen Dank für deine schnelle und gute Antwort. Diese klappt auch hervorragend.
Nun musste ich jedoch feststellen, das auch in der Beschreibung Doppelpunkte vorkommen. Gibt es hierfür auch eine Lösung?
Sonnige Grüße
Michael
AW: Werte innerhalb einer Zelle trennen
17.04.2019 11:11:20
Daniel
Hi
dann verwende nicht den Doppelpunkt als Trennzeichen, sondern ein anderes zeichen, welches ansonsten nicht im Text vorkommt, ich nehme ganz gerne die Pipe: "|"
Function TrennzeichenSpezial(txt As String) As String
Dim BildKürzel
Dim PosD As Long
Dim PosK As Long
For Each BildKürzel In Array(".jpg", ".JPG", ".jpeg", ".gif", ".png")
txt = Replace(txt, BildKürzel, BildKürzel & "|")
Next
txt = Replace(txt, "|:", "|")
PosD = InStr(txt, "|")
Do
PosD = InStr(PosD + 1, txt, "|")
If PosD = 0 Then Exit Do
PosK = InStrRev(txt, ",", PosD)
Mid(txt, PosK, 1) = "|"
Loop
TrennzeichenSpezial = txt
End Function

im text in Spalten dann auch.
sollten jetzt auch noch im Dateinamen kommas vorkommen, bin ich mit meinem Latein am Ende.
Gruß Daniel
Anzeige
AW: Werte innerhalb einer Zelle trennen
17.04.2019 15:32:51
Michael
Vielen Dank, hat alles super geklappt.
Bild1:jpg ?
17.04.2019 10:31:27
Matthias
Hallo
Soll das wirklich so stimmen?
Tabelle1

 A
1Bild1.jpg:Beschreibung1,Bild2.jpg:Beschreibung2,Bild3.jpg:Beschreibung3
2Bild1.JPG,Bild2.jpg,Bild3.jpg
3Bild1.jpg,Bild2.jpg:Beschreibung2,Bild3.png
4Bild1:jpg:Beschreibung1
5Bild1.jpg:Beschreibender Text, mit Komma,Bild2.jpg:Beschreibung2
6Bild1.jpeg


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Matthias
Anzeige
AW: Bild1:jpg ?
17.04.2019 10:46:29
Michael
Hallo Matthias,
danke für den Hinweis, dies ist in der Tat ein Fehler, natürlich sollte diese Zeile
Bild1.jpg:Beschreibung1 lauten.
Gruß Michael

322 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige