Laufzeitfehler 1004 bei Call Makro
11.11.2021 10:38:49
niniha
ich habe vor kurzem versucht in Kalkulation A Makros einzubauen, die je nach eingegebener Information die Zeilen in den anderen Tabellen (3 & 4) ein-oder ausblendet. Außerdem funktioniert das Eintragen der Information durch Copy-Paste, da die Personen die Infos aus Kalkulation B einfach übernehmen sollten. Dabei sollen die Zellennamen beim Einsetzen nicht übernommen werden, weshalb die "automatisch gelöscht" werden sollten.
Der Code hat immer funktioniert, aber seit gestern erscheint mir beim Copy-Pasten von Informationen ins Tabellenblatt 1 einen 'Laufzeitfehler 1004 Anwendungs- oder objektdefinierter Fehler'. Da ich mich mit VBA nicht super gut auskenne, weiß ich nicht woher der Fehler kommt. Das ein- und ausblenden funktioniert, aber es kommt dennoch zu einer Fehlermeldung. Ich hoffe ihr könnte mir weiter helfen :( Danke im Voraus!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim keycells As Range
Dim DefName As Name
Set keycells = Range("B64:R143")
If Not Application.Intersect(keycells, Range(Target.Address)) _
Is Nothing Then
For Each DefName In ActiveWorkbook.Names
On Error Resume Next
DefName.Delete
On Error GoTo 0
Next DefName
Call Tabelle4.Zeilen_ausblenden_EG1_5
Call Tabelle3.Zeilenausblenden_EG6_9
Application.EnableEvents = True
End If
End Sub