Letztezeile Kopie und Werte löschen

[omron2003]

Hallo Forum,

mit flolgendem Code kopiere ich die letzte beschriebene Zeile und füge diese als Neue Zeile an.
Ich suche jetzt noch eine Möglichkeit in der Neu angelegten Zeile die Werte von A:C zu löschen.

Besten Dank im Voraus
omron2003

Code:

Sub ZeilenKopie()
   Dim lngLetzte As Long
   lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
   Rows(lngLetzte).Copy Cells(lngLetzte + 1, 1)
End Sub

---

ich habe es ietzt so gelöst, und es scheint zu funktionieren.

Gruß
omron2003

Code:

Sub ZeilenKopie()
Dim lngLetzte As Long
With Worksheets("Planer")
     lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
     .Rows(lngLetzte).Copy Cells(lngLetzte + 1, 1)
     lngLetzte = Range("A65536").End(xlUp).Row
     .Rows(lngLetzte).Select
     .Cells(lngLetzte, 1).ClearContents
End With
End Sub

[Crazy Tom]

moin,


ein Weg

Code:

Sub ZeilenKopie()
    Dim lngLetzte As Long
    With Worksheets("Planer")
         lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
         .Rows(lngLetzte).Copy .Cells(lngLetzte + 1, 1)
         .Range(.Cells(lngLetzte + 1, 1), Cells(lngLetzte + 1, 3)).ClearContents
    End With
End Sub

mfg Tom

[Gast 123]

Hallo

das geht auch mit Resize, damit erweitert man den Bereich um 3 Spalten.  (oder um 3 Zeilen  Resize(3, 1), oder beides!

Code:

Sub ZeilenKopie()
   Dim lngLetzte As Long
   lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
   Rows(lngLetzte).Copy Cells(lngLetzte + 1, 1)
   Cells(lngLetzte + 1, 1).Resize(1, 3).ClearContents
End Sub

mfg Gast 123