Lange Liste mit Vornamen in eine Liste schreiben

[Derk]

Hallo,

ich bin ein absoluter VBA-Neuling und habe daher eine Frage:

Ich habe eine Tabellen mit mehreren (ca. 10.000) Vornamen (Aad ♂). Das ganze ist aufgeteilt nach Buchstaben (Tabelle 1...26).

Ich muss nun die lange Listen in eine komplette Liste schreiben, wie kriege ich das hin?

Grüße

Derk

[Der Steuerfuzzi]

Hallo,

es ist kein Bild beigefügt! Und gleich vorab: Ein Bild hilft in der Regel nicht viel. Besser wäre hier eine echte Excel-Datei!

[MisterBurns]

Hallo,

für sowas eignet sich Power Query perfekt, also falls du diesen Fall öfter hast, lohnt es sich, sich damit vertraut zu machen.

Alternativ so:

Code:

Sub zusammenfuehren()
Dim blatt As Worksheet
Dim letzte As Long
Dim freie As Long

For Each blatt In ActiveWorkbook.Worksheets
   If blatt.Name <> "Ziel" Then
       letzte = blatt.Cells(Rows.Count, 1).End(xlUp).Row
           freie = Sheets("Ziel").Cells(Rows.Count, 1).End(xlUp).Row + 1
           blatt.Range("A2:D" & letzte).Copy Destination:=Sheets("Ziel").Range("A" & freie)
   End If
Next

End Sub

[happy-jack]

Hallo,

ich bin ein absoluter VBA-Neuling und habe daher eine Frage:

Ich habe eine Tabellen mit mehreren (ca. 10.000) Vornamen (Aad ♂). Das ganze ist aufgeteilt nach Buchstaben (Tabelle 1...26).

Ich muss nun die lange Listen in eine komplette Liste schreiben, wie kriege ich das hin?

[Bild: C:\Users\derkb\Pictures\Screenshot]Grüße

Derk

Copy & Paste !

jack