Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Letztezeile Kopie und Werte löschen
#1
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
Antworten Top
#2
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
Antworten Top
#3
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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste