ich trage Daten zeilenweise in eine Tabelle ein.
Vorher kopiere ich die aktuelle Zeile und füge diese an der aktuellen Stelle ein. Damit habe ich immer genügend Zeilen frei.
Ich bekomme nun plötzlich die Fehlermeldung (siehe Bild).
Was kann ich dagegen tun. Der Code hat vor her ca. 100 mal funktioniert?
Case "Lagerprotokoll"
ZA = Worksheets(Anlage).Range("A3").Value
If Not ZA < 11 Then
Worksheets(ActiveSheet.Name).Rows(ZA + 1).Copy
Worksheets(ActiveSheet.Name).Rows(ZA + 1).Insert <-------------- HIER
ActiveSheet.Cells(ZA + 1, 1).Select
End If
Danke für Eure Hilfe
Beste Grüße Heiko