Zellbereich überwachen
03.08.2007 09:46:00
Martin
ich möchte einen bestimmten Zellbereich überwachen. Eine Änderung in diesem Bereich soll mittels der Ereignisprozedur Woorksheet_change ein Makro aufrufen. Dieses Makro schreibt die geänderten Werte in die nächsten Tabellenblätter. Dort natürlich in Bereiche, die außerhalb der Überwachung liegen.
Die Methode Intersect(Target, Range("Bereich")) funktioniert nicht. Hier wird Fehler 1004 hervorgerufen. Laut Forum ist es scheinbar nicht möglich Intersect zu verwenden, wenn andere Blätter als das aktive Blatt beschrieben werden.
Variante 1:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("A5:D10")) Is Nothing Then Exit Sub
call Makro_xy
Das Ergebnis ist: "Laufzeitfehler 1004 - Methode 'intersect' für Objekt '_global' fehlgeschlagen"
Variante 2:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target = Range("A5:D10") Then
Call Makro_xy
Else
Exit Sub
End If
Habs auch mit: Target = "A5:D10" versucht - leider ohne Erfolg
Erbebnis ist Laufzeitfehler 13 - Typenunverträglichkeit
Das Makro funktioniert übrigens einwandfrei. Wenn ich es normal (manuell) starte, macht es genau, was es soll.
Wie kann ich den Überwachungsbereich definieren?