Laufzeitfehler 1004
30.07.2019 10:32:35
Armin
mein Name ist Armin und lese und lerne schon länger hier in diesem Forum mit.
Nun habe ich leider ein Problem, bei dem ich so gar nicht weiter komme und auch nichts passendes hier bzw. im Internet gefunden habe. Vielleicht könnt ihr mir ja helfen.
Es geht dabei um eine Anwesenheitsliste/Kalender für die Kita meiner Frau. Die Kita hat 5 Kitas hier im Stadtteil Berlin. Jede Kita hat ein eigenes Tabellenblatt. Nun kommt es auch mal vor, dass eine Angestellte in eine andere Kita wechselt. Dazu habe ich einen Button erstellt, der ein Userform öffnet. Auf diesem Userform kann nun ausgewählt werden, in welche Kita verschoben werden soll. Der folgende Code funktioniert, aber immer nur einmal, danach kommt eine Fehlermeldung (Laufzeitfehler '1004': Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden.). Danach funktioniert es wieder, dann wieder nicht, usw.
Hier nun mein Code:
If OptionButton1.Value = True Then
If ActiveSheet.Index = 3 Then
MsgBox "Die/der Angestellte befindet sich bereits in dieser Kita !", vbExclamation, "Hinweis"
Else
Range("A" & ActiveCell.Row & ":NW" & ActiveCell.Row).Copy
Application.EnableEvents = False
Sheets(3).Select
ActiveSheet.Unprotect
Cells(7, 1).Select
letztezeile = Application.WorksheetFunction.CountA(Range("A" & ActiveCell.Row & ":A25"))
Cells(7 + letztezeile, 1).Select
Range("A" & ActiveCell.Row & ":NW" & ActiveCell.Row).PasteSpecial xlPasteAll
Application.CutCopyMode = False
Application.EnableEvents = True
Cells(7, 1).Select
ActiveSheet.Protect
End If
Wie bekomme ich nun diesen Fehler weg, damit es immer funktioniert ? Vielen Dank im Voraus.
Gruß, Armin