das folgende könnte helfen:
(Ich habe mal unterstellt, das deine Daten in der jeweils ersten Zeile anfangen. Wenn nicht, dann bitte entsprechend anpassen.)
Sub test()
Dim lRow&
lRow = Workbooks("DeineMappe.xls").Worksheets("Tabelle1").Cells(Rows.Count, 7).End(xlUp).Row 'Spalte G ist die 7. Spalte
Dim rngA As Range, rngB As Range, rngC As Range, rngUnion As Range
Set rngA = Range("A1:A" & lRow&)
Set rngB = Range("C1:C" & lRow&)
Set rngC = Range("G1:G" & lRow&)
Set rngUnion = Application.Union(rngA, rngB, rngC)
rngUnion.Select
End Sub
Einfach ausprobieren, viel Spaß
und viele Grüße aus Bruchköbel
Friedel
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen