Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Lange Liste mit Vornamen in eine Liste schreiben
Normale Version: Lange Liste mit Vornamen in eine Liste schreiben
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Derk

20.08.2018, 13:59
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

20.08.2018, 14:07
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

20.08.2018, 14:11
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

20.08.2018, 14:13
(20.08.2018, 13:59)Derk schrieb: [ -> ]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
Clever-Excel-Forum > Office-Anwendungen > Excel > Lange Liste mit Vornamen in eine Liste schreiben