Zeile kopieren und einfügen ABER

Hi zusammen,
folgendes Makro habe ich aufgezeichnet und soll Zeile 7 der TabelleA kopieren und in TabelleB einfügen. Dort soll es aber nicht die Zeile 7 überschreiben, sondern beginnend mit Zeile 7 eine Auflistung starten, und deshalb immer in die nächste leere Zeile reinkopieren. Es überschreibt aber... Kann jemand helfen? Vielen Dank euch

Sub Copy_And_Paste()
' Copy_And_Paste Makro
' Kopiert die oberste Zeile in "TabelleA" und f?gt sie in die erste freie Zeile in "TabelleB"   _
_
ein
Sheets("TabelleA").Select
Rows("7:7").Select
Selection.Copy
Sheets("TabelleB").Select
Rows("6:6").Select
Selection.End(xlDown).Select
ActiveSheet.Paste
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Copy_And_Paste() ' Copy_And_Paste Makro ' Kopiert die oberste Zeile in "TabelleA" und f?gt sie in die erste freie Zeile in " _ TabelleB" ein With Sheets("TabelleB") Dim LoZeile As Long LoZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 Sheets("TabelleA").Rows("7:7").Copy .Rows(LoZeile) End With End Sub

Option Explicit Sub Copy_And_Paste() With Sheets("TabelleB") Dim LoZeile As Long, LoSpalte As Long LoZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1 LoSpalte = Sheets("TabelleA").Cells(7, Columns.Count).End(xlToLeft).Column Sheets("TabelleA").Range(Cells(7, 1), Cells(1, LoSpalte)).Copy .Range("A" & LoZeile).Paste Application.CutCopyMode = False End With End Sub

Sub Copy_And_Paste() With Sheets("Prozesslandkarte_?bersicht") Dim LoZeile As Long, LoSpalte As Long LoZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1 LoSpalte = Sheets("Prozesslandkarte").Cells(7, Columns.Count).End(xlToLeft).Column Sheets("Prozesslandkarte").Range(Cells(7, 1), Cells(1, LoSpalte)).Copy .Cells("A" & LoZeile).Paste Laufzeitfehler ´5´: Ungültiger Prozedurablauf oder ungü _ ltiges Argument Application.CutCopyMode = False End With End Sub

Option Explicit Sub Copy_And_Paste() With Sheets("TabelleB") Dim LoZeile As Long, LoSpalte As Long LoZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1 LoSpalte = Sheets("TabelleA").Cells(7, Columns.Count).End(xlToLeft).Column Sheets("TabelleA").Range(Cells(7, 1), Cells(7, LoSpalte)).Copy .Range("A" & LoZeile).PasteSpecial xlPasteValues Application.CutCopyMode = False End With End Sub

Option Explicit Sub Copy_And_Paste() With Sheets("Prozesslandkarte_?bersicht") Dim LoZeile As Long, LoSpalte As Long LoZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1 LoSpalte = Sheets("Prozesslandkarte").Cells(7, Columns.Count).End(xlToLeft).Column Sheets("Prozesslandkarte").Range(Cells(7, 1), Cells(7, LoSpalte)).Copy Anwendungs- _ oder objektdefinierter Fehler .Range("A" & LoZeile).PasteSpecial xlPasteValues Application.CutCopyMode = False End With End Sub

Option Explicit Sub Copy_And_Paste() With Sheets("Prozesslandkarte_?bersicht") Dim LoZeile As Long, LoSpalte As Long LoZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1 With Sheets("Prozesslandkarte") LoSpalte = .Cells(7, Columns.Count).End(xlToLeft).Column .Range(.Cells(7, 1), .Cells(7, LoSpalte)).Copy End With .Range("A" & LoZeile).PasteSpecial xlPasteValues Application.CutCopyMode = False End With End Sub

Beliebteste Forumthreads (12 Monate)

Zeile kopieren und einfügen ABER

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

327 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile kopieren und einfügen ABER

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

327 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread