Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1304to1308
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
Inhaltsverzeichnis

Namen aus mehreren Blätter "Einfach" übernehmen

Namen aus mehreren Blätter "Einfach" übernehmen
29.03.2013 09:02:15
rieckmann
Hallo,
ich suche eine Möglichkeit um Ortsnamen die in mehreren Tabellenblätter in der Spalte A untereinander stehen, in das Tabellenblatt "Ergebnis" Spalte A untereinander so zu übernehmen das jeder Ort nur einmal aufgeführt ist, auch wenn er mehrfach in den Tabellen erscheint.
Es sollte auch die kompletten Spalten A durchsucht werden, denn dort stehen hunderte Ortsnamen.
Hätte da jemand eine Lösung ?
Hier die Test-Mappe: https://www.herber.de/bbs/user/84602.xls
Gruß
Fred

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Namen aus mehreren Blätter "Einfach" übernehmen
29.03.2013 10:21:10
Gerd
Hallo Fred!
Sub t()
Dim WS As Worksheet
Dim oDic As Object
Dim objCell As Range
Set oDic = CreateObject("scripting.dictionary")
For Each WS In Worksheets
If WS.Name  "Ergebnis" Then
For Each objCell In WS.Range(WS.Cells(2, 1), WS.Cells(WS.Rows.Count, 1).End(xlUp))
On Error Resume Next
oDic.Add objCell.Value, 0
On Error GoTo 0
Next
End If
Next
Worksheets("ergebnis").Cells(2, 1).Resize(oDic.Count, 1) = WorksheetFunction.Transpose(oDic. _
keys)
End Sub
Sub tt()
Dim WS As Worksheet
For Each WS In Worksheets
If WS.Name  "Ergebnis" Then
WS.Cells(1, 1).CurrentRegion.Columns(1).Offset(1).Copy
Worksheets("Ergebnis").Cells(Worksheets("ergebnis").Rows.Count, 1).End(xlUp). _
Offset(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End If
Next
Worksheets("ergebnis").Columns(1).RemoveDuplicates 1, xlYes
End Sub
Gruß Gerd

Anzeige
AW: Namen aus mehreren Blätter "Einfach" übernehmen
29.03.2013 10:27:38
rieckmann
Hallo
Super, genau so !
Ich danke euch beiden für eure Lösungen.
Wünsche noch ein tolles Ü 15°C Osterfest !
Gruß
Fred

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige