Makrofehler
02.11.2007 14:05:46
Pape
Private Sub Worksheet_Change(ByVal Target As Excel.Range
Das Makro beinhaltet eine Mehrfachauswahl Range siehe unten,
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("D4,D6,AH4,U10,V14,U20,V22,V24")) Is Nothing Then Exit Sub
Application.EnableEvents = False
usw.
ERRORHANDLER:
ActiveSheet.Protect 'Blattschutz einschalten
Application.EnableEvents = True
End Sub
Bei einer Datei funktioniert dies allerdings nicht, hier erscheint folgende Meldung:
Laufzeitfehler 1004:
Die Methode Range ist für das Objekt _Worksheets ist fehlgeschlagen
Wähle ich aber nur eine Zelle (z.B.
If Intersect(Target, Range(D4))
),
dann läuft das Makro ohne Fehlermeldung ab.
Wo habe ich einen Fehler gemacht?