Office: Zeilen kopieren, in anders Blatt einfügen

Macanudo · 6. Januar 2018

Guten Tag in die Runde,

ich kopiere mit dem unten stehenden Makro aus Tabelle 2, ab der Zeile 2 die Zeilen in die Tabelle 3.

Dies war auch immer ausreichend, leider werden in Tabelle 2 jetzt unterschiedlich viel Zeilen kopiert(mal sind es 3 dann wieder 18) und diese sollen in Tabelle 3 unter die letzte beschrieben Zeile eingefügt werden.

kann man diesen Code anpassen?

Vielen Dank.

Viele Grüße

Uwe

Code:

Sub Zeilenkopieren()
Sheets("Tabelle2").Select
Rows("2:14").Select
Selection.Copy
Sheets("Tabelle3").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

H_E_K · 8. Januar 2018

Klar, du musst nur die unterste auf Tabelle2 benutzte Zeile ermitteln.
Die obere Version ist für ältere Excel-Versionen mit 2^16 Zeilen, die andere für neuere Excel-Versionen mit 2^20 Zeilen:
Code:

Sub ZeilenkopierenAlt()
Dim Lastline As Long
Dim Rg As String
Sheets("Tabelle2").Select
Lastline = Range("A65536").End(xlUp).Row
Rg = "2:" & Trim(Str$(Lastline))
Rows(Rg).Select
Selection.Copy
Sheets("Tabelle3").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Sub ZeilenkopierenNeu()
Dim Lastline As Long
Dim Rg As String
Sheets("Tabelle2").Select
Lastline = Range("A1048576").End(xlUp).Row
Rg = "2:" & Trim(Str$(Lastline))
Rows(Rg).Select
Selection.Copy
Sheets("Tabelle3").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Macanudo · 8. Januar 2018

Ich habe mich für den unteren entschieden, da ich Excel 2016 benutze. Wer weiß wieviel Zeilen ich in Zukunft kopieren muss.

Vielen Dank für die schnelle Hilfe.

Viele Grüße
Uwe

Office: Zeilen kopieren, in anders Blatt einfügen

Zeilen kopieren, in anders Blatt einfügen

Zeilen kopieren, in anders Blatt einfügen

Zeilen kopieren, in anders Blatt einfügen - Similar Threads - Zeilen kopieren Blatt

Letzte Zeile finden und in anderes Blatt kopieren

Wert in spalte suche, zeile ausschneiden und in anderes Blatt kopieren

Gesamte Zeile in ein neues Blatt kopieren, wenn in Spalte X Minimum gefunden wurde

Wenn in Zeile bestimmter Wert dann ganze Zeile in anderes Tabellen Blatt Kopieren.

VBA Hilfe von Profis: Zeilen nach Kriterien suchen und in anderem Blatt einfügen

Ganze Zeilen durch VBA in ein anderes Blatt kopieren, wenn eine Bedingung erfüllt ist

Zeile aus Blatt kopieren und verteilen