Zeilen einfügen
22.07.2003 22:15:16
Matthias C.
wenn ich eine neue Zeile automatisch unterhalb des letzten Eintrags einfügen möchte, funktioniert dieses Makro gut. Aber wenn ich eine dieser neuen Zeilen wieder löschen möchte, kommt eine Fehlermeldung (Laufzeitfehler '13'). Woran kann das blos liegen? Vielen Dank für eure Mühe.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "einfuegen" Then
ActiveCell.EntireRow.Insert Shift:=xlUp
End If
End Sub
MfG Matthias