Bereich löschen
18.06.2022 17:04:41
wolgertal
ich habe folgendes Problem.
Mit folgendem Code füge ich eine Zeile unter der aktiven Zeile ein.
ich möchte nun in der neuen Zeile die Werte in Spalte 5-7 und Spalte 8-12 löschen.
Kann mir hier jemand helfen, ich bekomme es nicht hin
Viele Grüße und Danke vorab
Option Explicit
Sub zeile_drunter()
Dim Zeile As Long
Zeile = ActiveCell.Row
Rows(Zeile + 1).Insert (xlShiftDown)
Rows(Zeile).Copy Rows(Zeile + 1)
End Sub
Anzeige