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
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
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
Hallöchen,
z.B.
Sheets("Tabelle1").Range("A5:A" & Cells(Rows.Count, 1).End(xlUp)).Copy
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?
Zitat:ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$2:$J$11"), , xlYes).Name = "Tabelle1"
Kann mir das jemanden sagen?
Hallo schauan,
habe das Makro angepasst. Leider erhalte ich ein Fehler.
Wäre nett, wenn du mir dies bereinigen würdest.
Gruss Martin
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
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
Hallöchen,
Sheets("Tabelle1").Range("A5:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy
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