Spalten kopieren bis letzte Zeilee

[luna101]

Hallo Profi's
Ich steh wieder einmal auf dem Schlauch und bitte um eure Hilfe.
Ich möchte von Tabelle1, 3 Spalten mit unterschiedlichen Zeilenzahlen nach Tabelle2 kopieren.
Das kopieren habe ich hingekriegt, jedoch das mit der letzten Zeile habe ich nicht geschaft.
Danke im Voraus für eure Hilfe.
Gruss Martin

[Kuwer]

Hallo,

Sub Kopieren_Tabelle1_3_Spalten_nach_Tabelle2()
   Sheets("Tabelle1").Range("A5").CurrentRegion.Copy
   Sheets("Tabelle2").Range("B5").PasteSpecial xlPasteValues
   Application.CutCopyMode = False
End Sub

Gruß Uwe

[luna101]

Hallo Uwe,
:98: funktioniert gut, wenn man die ganze Region kopieren möchte.
Ich möchte aber jede Spalte einzeln kopieren können, weil in Tabelle1 und in Tabelle 2
die kopierenden und einzufügenden Spalten nicht immer am gleichen Ort sind.
Es sollte so eine Art Universalmakro werden.
Entschuldige, dass ich das Problem nicht genauer beschrieben habe.
Gruss Martin

[schauan]

Hallöchen,

z.B.

Sheets("Tabelle1").Range("A5:A" & Cells(Rows.Count, 1).End(xlUp)).Copy

[ludof]

Hallo

Bin gerade über diesen Beitrag geflogen, habe den Beitrag von schauan gelesen, habe dazu eine Frage.
Wie wandele ich die J11 variabel um, es können mehr oder wenger Zeilen sein?

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$2:$J$11"), , xlYes).Name = "Tabelle1"

Kann mir das jemanden sagen?

[luna101]

Hallo schauan,
habe das Makro angepasst. Leider erhalte ich ein Fehler.
Wäre nett, wenn du mir dies bereinigen würdest.
Gruss Martin

[Rudi'S]

Hallo Luna,

füge im Makro eine Zeile ein 

Last = Cells(Rows.Count, 1).End(xlDown).Row

und ersetze die folgende mit diesem Befehl

Sheets("Tabelle1").Range("A5:A" & Last).Copy


Gruß Rudi

[luna101]

Hallo Rudi,
:98:  Habe das Makro angepasst und es funktioniert perfekt.
Danke für deine Hilfe und die Zeit die du investiert um uns zu helfen.
Viele Grüsse und ein guter Sonntag wünscht dir
Martin

[schauan]

Hallöchen,

Sheets("Tabelle1").Range("A5:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy

[luna101]

Hallo schauan,
danke für den Code. Supper, jetzt habe ich sogar 2 Möglichkeiten.
Der Code funktioniert gut.
Auch dir danke für deine Hilfsbereitschaft.
Gruss und :98:
Kartin