Texte neu anordnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Umgruppieren() Dim wksData As Worksheet Dim wksNeu As Worksheet Dim ZeileD As Long, ZeileN As Long Dim strName As String Dim strInterpret As String, strTitel As String, posKlammer As Integer Set wksData = ActiveSheet Set wksNeu = wksData.Parent.Worksheets.Add(after:=wksData) ZeileN = 0 With wksData For ZeileD = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row If ZeileD = 1 Then strName = .Cells(ZeileD, 1).Text Else If Trim(.Cells(ZeileD, 1).Text) = "" Then strName = Trim(.Cells(ZeileD + 1, 1).Text) If strName = "" Then Exit For End If ZeileD = ZeileD + 1 Else ZeileN = ZeileN + 1 wksNeu.Cells(ZeileN, 1).Value = strName With .Cells(ZeileD, 1) posKlammer = InStr(.Text, "(") If posKlammer = 0 Then strInterpret = Trim(Mid(.Text, 2)) strTitel = "" Else strInterpret = Trim(Mid(Left(.Text, posKlammer - 1), 2)) strTitel = Trim(Mid(.Text, posKlammer + 1)) strTitel = Trim(Left(strTitel, Len(strTitel) - 1)) End If End With wksNeu.Cells(ZeileN, 2).Value = strInterpret If strTitel "" Then wksNeu.Cells(ZeileN, 3).Value = strTitel End If End If Next End With End Sub

Guten Abend Günther, guten Abend Franz, guten Abend Robert.
Erst einmal vielen Dank für die Mühe und Zeit, die ihr investiert habt, kann man gar nicht gut genug loben, dass sich Menschen unentgeltlich in ihrer Freizeit dazu bereit erklären.
Aber nun zu meinen Tests, offensichtlich funktionieren beide Lösungen.
Allerdings ist mir, als ich mir die Ergebnisse angeschaut habe, erneut etwas aufgefallen, was mich erneut vor ein Rätsel stellt.
Ich brauche also erneut eure Hilfe.
Es geht um folgendes, mir ist aufgefallen, dass Einträge in der neuen Tabelle mehrfach vorkommen, sprich ich wollte "Duplikate entfernen". Das hat bei den Zeilen, in denen alle 3 Einträge identisch sind, auch geklappt.
Aber es gibt auch Zeilen, in denen die beiden Schauspieler in der ersten und zweiten Spalte vertauscht sind.
Sprich
A B C
und
B A C
soll auch als Duplikat angesehen werden, obwohl nur Spalte C identisch ist, jedoch der Inhalt der Spalten A und B vertauscht sind.
Wie kann ich auch solche "Duplikate" entfernen?
Danke nochmals Jenny

Da du dein Problem bereits per Hilfe lösen konntest, Jenny,
meine Alternative in 1.Linie z.Vgl:

Abby Elliott

Helen Mirren

Saturday Night Live

Abby Elliott

Vedette Lim

No Strings Attached

Abigail Spencer

Sonja Kinski

A Beautiful Now

Addison Timlin

Emma Roberts

personal photo

Addison Timlin

unknown woman

personal photo

Adelaide Clemens

Bojana Novakovic

Generation Um...

Adelaide Kane

Alysha Nett

Tyler Shields photo shoot

Adelaide Kane

Rachel Skarsten

at "Long Live the Queen" Reign convention in Paris

Adelaide Kane

Rachel Skarsten

in a photo booth at Soho House West Hollywood

Adelaide Kane

Teela LaRoux

Tyler Shields photo shoot

Sonja Kinski

Abigail Spencer

A Beautiful Now

Ali Liebert

Jess Havisto

RGB: 255.204.153

BedFmt-Regel-Fml C1:E12: =UND(ISTZAHL(VERGLEICH($C1&$D1;$D$1:$D1&$C$1:$C1;0));$E1=INDEX($E$1:$E1;VERGLEICH($C1&$D1;$D$1:$D1&$C$1:$C1;0)))

ZFml C1[:C12]: {=INDEX($A$1:$A$25;MAX(($A$1:$A$25<>"")*(LINKS($A$1:$A$25)<>"-")*(ZEILE($A$1:$A$25)<VERGLEICH("-"&D1&"*";$A$1:$A$25;0))*ZEILE($A$1:$A$25)))}

ZFml D1[:E12]: {=MaskOn(MaskOn(INDEX(DataSet(NoErrRange($A$1:$A$25;;LINKS($A$1:$A$25)="-");"";;1;1);ZEILE());"mrk()";INDEX({1.0};SPALTE(A1)));"anu";"""")}

Habe in Zeilen 20-22 die Umkehrung der Zeilen 4-6 eingefügt, um anschließend Dopplungen der Art C&D=D&C bei E=E mit BedingtFormat markieren zu können (ab 2.Auftreten). Außerdem sind alle Fmln singulare MatrixFmln, wovon die in D:E zuerst angelegt wdn müssen (in D1, dann auf E1 ziehen und beide nach unten durchkopieren), anschld C1 und analog nur nach unten kopieren. Die Fmln sollten durchaus 1000 Zeilen vertragen können, obwohl bei größeren Mengen eine Subprozedur schneller sein könnte und nur bei Ergänzungen erneut ausgeführt wdn muss. Hier müssen dann die Bereichsangaben der Fmln entsprd erweitert wdn (beziehen sich jetzt nur auf das erweiterte Bsp A1:A25).
ArchivLinks zu 3 UDFs aus Fml[n] in D1[:E12]:
DataSet (Vs1.3) https://www.herber.de/forum/archiv/1504to1508/1507939_InteressentenInfo_zum_WE.html#1508954
MaskOn (Vs2.1) https://www.herber.de/forum/archiv/1344to1348/1344962_Initialen_bei_Doppelnamen.html#1345181
NoErrRange (Vs1.3) https://www.herber.de/forum/archiv/1508to1512/1508209_Auflistung_aus_01_Matrix.html#1508215
Morhn + dito Fro'N'Ja', Luc :-?
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon
Nichtsdestotrotz Durchblick verbessern mit

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread