Zeilen von einem Blatt in anderes unten anfügen
20.02.2019 20:56:17
einem
wieder einmal komme ich nicht weiter, bin für Eure Hilfe echt dankbar.
Ich will von Tab-Blatt "einzuplegen" alle belegten Zeilen außer die Überschrift nach Tab-Blatt "1" kopieren. Dabei müssen die kopierten Zeilen in Tab-Blatt "1" unter den vorhandenen angefügt werden.
Habe auch schon einen Code, auf beiden Blättern wird jeweils die letzte Zeile ermittelt, doch das kopieren funktioniert noch nicht.
Vielen Dank für Euere Hilfe
Sub rüberkopieren()
Dim rngBereich As Range
Dim rngZelle As Range
Dim LoLetzteQ As Long
Dim LoLetzteZ As Long
'ermittle letzte Zeilen von Sheet1
LoLetzteZ = Worksheets("1").Cells(Rows.Count, 2).End(xlUp).Row + 1
Debug.Print LoLetzteZ
'ermittle letzte Zeilen von Sheet "einzupflegen"
LoLetzteQ = Worksheets("einzupflegen").Cells(Rows.Count, 2).End(xlUp).Row
Debug.Print LoLetzteQ
Set rngBereich = Range(Cells(1, 1), Cells(LoLetzteQ, 15))
For Each rngZelle In rngBereich
rngZelle.EntreRow.Copy Worksheets("1").Rows(LoLetzteZ)
LoLetzteZ = LoLetzteZ + 1
Next rngZelle
End Sub