einfachste Möglichkeit

Hallo,
Ich wollte mal fragen, ob es für das was ich hier mache, auch schnellere Wege gibt, a ich das doch recht häufig mache.
1. sortiere ich Tabelle1 Spalte A von A bis Z.
2. 100 der Zeilen beginnen mit Ordnungszahlen von 1. bis 100. diese behalte ich, alle andere lösche ich.
3. Ich ersetze ". " durch "~".
4. Ich trenne den Text in Spalten mit Trennzeichen "~".
5. Ich lösche die erste Spalte mit den Zahlen.
6. Ich wende die Glätten Formel auf die übrig gebliebene Spalte an, da alle Texte ein Leerzeichen am Ende haben.
7. Ich kopiere die 100 Zellen mit der Glätten Formel und füge die Werte am Ende von Tabelle 3 Spalte A ein.
8. Ich entferne in der kompletten Tabelle 3 Spalte A Duplikate.
9. ich sortiere Tabelle3 Spalte A von A bis Z.
Wie gesagt gibt es da praktikablere Lösungen?`
Oder anders die Fragestellung aufgebaut, wie mache ich am einfachsten aus Tabelle 1 die Tabelle 3, wobei wenn ich das ganze wiederhole, indem ich andere Texte in Tabelle 1 einfüge, die neuen Texte unter die alten in Tabelle3 geschrieben werden sollen und dann Duplikate entfernt werden sollen.
https://www.herber.de/bbs/user/132177.xlsx
Danke
Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub String_aufbereiten() Dim AC As Variant, zx, lz As Integer Worksheets("Tabelle1").Select SpalteA_sortieren 'A sortieren 'Punkte Vorspann abschneiden For lz = 1 To 100 If Len(Cells(1, 1))

Hallo Christian,
hier mal die "Aufbereitung" der Daten.
Die brauchst du dann nur noch ans Ende vun Tabelle 3 zu kopieren und dann Duplikate entfernen auf die Spalte anzuwenden.

Public Sub aaa()
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
.Rows(1).Insert
.Range("A1") = "Name"
.Range("B1:B" & .Cells(.Rows.Count, "A").End(xlUp).Row) _
.FormulaLocal = "=WENN(ISTZAHL(LINKS(A1;1)*1);ZEILE();0)"
.Range("B1:B" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value = _
.Range("B1:B" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
.Columns("A:B").RemoveDuplicates Columns:=2, Header:=xlNo
.Columns("B").ClearContents
.Columns("A").Replace What:="*. ", Replacement:="", LookAt:=xlPart
.Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Sort _
Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlYes, orderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
.Columns("A").RemoveDuplicates Columns:=1, Header:=xlYes
.Rows(1).Delete
End With
End Sub

Gruß Werner

Public Sub aaa() Dim wsQ As Worksheet, wsZ As Worksheet Dim loLetzte As Long, loLetzteNeu As Long Set wsQ = ThisWorkbook.Worksheets("Tabelle1") Set wsZ = ThisWorkbook.Worksheets("Tabelle3") Application.ScreenUpdating = False wsQ.Range("B1:B" & wsQ.Cells(wsQ.Rows.Count, "A").End(xlUp).Row).FormulaLocal = _ "=WENNFEHLER(WENN(FINDEN(""."";A1)

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread