Letzte Zeile finden und kopieren
20.12.2021 15:57:36
Dom
Ich habe mir unter folgendem Link Hilfe für mein Problem gesucht: https://www.herber.de/forum/archiv/1552to1556/1555287_letzte_Zeile_finden_und_kopieren__weitere_Zeilen.html#1555311
Ich habe den Code für meine Datei wie folgt modifiziert:
Sub Letzte_Schicht_kopieren()
Dim loLetzte As Long
With Worksheets("Produktion")
loLetzte = .Cells(.Rows.Count, 5).End(xlUp).Row + 2
.Rows(loLetzte - 35 & ":" & loLetzte).Copy .Rows(loLetzte + 1)
End With
End Sub
Was muss ich ändern, damit lediglich die Spalten E und F kopiert und eingefügt werden?
Zur Info: die letzten zwei Spalten sind immer leer und sollen auch als leere Zellen mit kopiert werden. Deshalb .Row +2
Vielen Dank für eure Hilfe.
Anzeige