Anzeige
Archiv - Navigation
968to972
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
968to972
968to972
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Verschiedene Werte aus Zeile vereinzeln

Verschiedene Werte aus Zeile vereinzeln
21.04.2008 07:48:00
Uwe
Hallo zusammen,
habe folgende Tabelle:
Begriff 1, Begriff 2, Begriff 3 Übersetzung 1
Begriff 4 Übersetzung 2
Begriff 5, Begriff 6 Übersetzung 3
soll so aussehen:
Begriff 1 Übersetzung 1
Begriff 2 Übersetzung 1
Begriff 3 Übersetzung 1
Begriff 4 Übersetzung 2
Begriff 5 Übersetzung 3
Begriff 6 Übersetzung 3
Es stehen also Begriffe durch Komma getrennt in Spalte A und eine Übersetzung in Spalte B. Die Anzahl der Begriffe ist unterschiedlich, diese sollen vereinzelt untereinander aufgeführt werden, mit dem Wert aus Spalte B.
Danke für Eure Unterstützung,
Uwe

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verschiedene Werte aus Zeile vereinzeln
21.04.2008 09:15:00
David
https://www.herber.de/bbs/user/51730.xls
Ich habe keine Möglichkeit gefunden, das alles in einzelne Formeln zu quetschen, da ich jedesmal mehr als 6 Verschachtelungen als Resultat hatte.
Deswegen habe ich den String vorher in 3 Teile gesplittet und die dann weiter zerlegt.
Das Ergebnis stimmt soweit, allerdings wird es schwierig, diese Formel runterzukopieren, da die Verweise "springen". Eventuell müsste man da noch was mit INDIREKT einbauen, aber dazu fehlt mir die Zeit.
Vielleicht kannst du ja aus dem Ansatz was machen.
Gruß
David

Anzeige
AW: Werte aus Zeile vereinzeln
21.04.2008 09:25:43
Erich
Hallo Uwe,
wenn's auch VBA sein darf: (gehört in ein normales Modul)

Option Explicit
Sub Aufteile()
Dim zQ As Long, zZ As Long, varA As Variant, ii As Long
For zQ = 1 To Cells(Rows.Count, 1).End(xlUp).Row
varA = Split(Cells(zQ, 1), ",")
For ii = 0 To UBound(varA)
zZ = zZ + 1
Cells(zZ, 3) = Trim(varA(ii))
Cells(zZ, 4) = Cells(zQ, 2)
Next ii
Next zQ
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige