Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Texte von 2 Spalten untereinander kopieren

Texte von 2 Spalten untereinander kopieren
03.12.2016 22:52:33
2
Sehr geehrte Forumsmitlglieder,
ich benötige wieder einmal eure Hilfe!
Habe in den Zellen AX154:AX163 und den Zellen AY154:AY163 Texte, die in den Zellen AZ154:AZ173 untereinander geschrieben werden sollen! Ideal wären erst die Texte aus AX und dann AY!!
Zum Teil sind die Texte leider auch noch doppelt und müssen sortiert werden, sodass jeder Text nur ein mal vorkommt.
Im Extremfall sind keine Texte vorhanden! Maximal aber 20.
Ich danke natürlich bereits im Voraus und bin gespannt, ob ihr meine Fragestellung verstanden habt und auch eine individuelle Lösung findet.
Ganz liebe Grüße
Unzzz1978
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Texte von 2 Spalten untereinander kopieren
03.12.2016 23:02:14
2
Hola,
verlinkst du bitte deine deine Beiträge in den verschiedenen Foren untereinander?
Danke.
Gruß,
steve1da
jetzt war ich eh schon
03.12.2016 23:27:37
Citizen
..fast fertig...
Hi,
Code kommt ins Modul deiner Tabelle:

Option Explicit
Sub AllInOne()
Dim areaOne As Range, areaTwo As Range, objtCell As Range, areaOut As Range
Dim odict, AllItems
Set areaOne = Range("AX154:AX163")
Set areaTwo = Range("AY154:AY163")
Set areaOut = Range("AZ154:AZ173")
areaOut = ""
Set odict = CreateObject("scripting.dictionary")
For Each objtCell In areaOne
odict(objtCell.Value) = objtCell.Value
Next
For Each objtCell In areaTwo
odict(objtCell.Value) = objtCell.Value
Next
AllItems = odict.items
areaOut(1).Resize(UBound(AllItems) + 1, 1) = Application.Transpose(AllItems)
End Sub
VG
Steffen
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige