Inhalt in anderes Tabellenblatt kopieren mit VBA

[Baaron]

Hallo zusammen,
dieses Mal gibt es bei mir ein Problem mit einem Excel Makro. Ich hoffe, ihr könnt mir dabei helfen, weil ich noch relativ neu auf diesem Gebiet bin :) 

Folgende Situation gibt es: Ich habe die Tabellenblätter 1-20 mit Inhalt eingelesen. Jetzt will ich von jedem dieser Blätter jeweils die zweite Spalte in das 21. Blatt kopieren.
Von Hand wäre das einiges am Arbeit, deswegen habe ich an ein Makro gedacht, das mir die Arbeit erleichtert. Allerdings klappt es bei mir nicht so wie ich mir das vorgestellt habe, weil mein Makro den kopierten Inhalt immer in die Spalte A vom Blatt 21 einfügt.

Also bräuchte ich einen Befehl, der vorgibt, dass der einfügte Inhalt im Blatt 21 immer eine Spalte nach rechts rutscht

Ich hoffe ich konnte mein Problem verständlich erklären und bedanke mich schon mal für jegliche Form der Hilfe.
Danke! :)

[Flotter Feger]

Hallo,

Wo genau, in der einen Zeile, hast du ein Problem ? :19:

Nimm doch den Zähler der Schleife, um die Spalte hochzuzählen.

PHP-Code:

For i = 1 To 20
    Worksheets(i).Columns(2).Copy Destination:=Worksheets("Tabelle21").Cells(1, i)
Next i 


[Baaron]

Hallo,

schon mal danke für die schnelle Antwort!

Bisher hab ich folgenden Befehl:

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+b
'
    Sheets("Tabelle1").Select
    Range("A1:A20").Select
    Selection.Copy
    Sheets("Tabelle21").Select
    ActiveSheet.Paste
End Sub


Da gibt es jetzt zwei Komplikationen:
1) Es wird immer die Tabelle 1 ausgewählt aus der die Zellen kopiert werden. Besser wäre irgendwas, was der Laie als "ActiveSheet +1" bezeichnen würde 2) Der Inhalt wird immer in die Zelle A1 der Tabelle 4 kopiert, also müsste da auch irgendwas mit +1 stehen 


Ich weiß nicht, ob das überhaupt geht

[Flotter Feger]

Hallo,

probiere es doch mal so ...

Code:

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+b
'
Dim i As Long

For i = 1 To 20
    Worksheets("Tabelle" & i).Columns(2).Copy Destination:=Worksheets("Tabelle21").Cells(1, i)
Next i

End Sub

[Baaron]

Vielen Dank!!!  

Du hast mit und meiner Gruppe sehr viel geholfen.
Das Makro funktioniert perfekt.