Ich brauche kurz eure hilfe. Ich möchte mit Makro Leere Zeile einfügen unter der aktuellen Zeile.
Danke für eure Antworten.
Sub ZeileEinfuegen()
On Error GoTo Fehler
ActiveCell.Offset(1, 0).EntireRow.Insert shift:=xlDown: Exit Sub
Fehler:
MsgBox "Excel kann die Letzte Zeile nicht über das Blatt hinaus verschieben" & vbLf & "Aktion _
wurde nicht ausgeführt"
On Error GoTo 0
End Sub
Gruß Matthias