AW: Bei Änderung eines Zellenwertes Makro ausführen
18.07.2008 15:22:00
John
Hallo Uwe,
danke für den Tipp.
Ich habe jetzt mal versucht, der Funktion die Variable "Target" mit zugeben und habe immer einen Fehler bekommen. Kann aber auch sein, dass mein Syntax da falsch ist.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:Z")) Is Nothing Then
fncUpdateZelle (Target)
End If
End Sub
Da kriege ich den Hinweis kein Objekt vorhanden.
Ich habe dann einen Kunstgriff gemacht und das geht wiederum:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:Z")) Is Nothing Then
Cells(Target.Row, Target.Column).Activate
fncUpdateZelle
End If
End Sub
Vielleicht liege ich auch viel zu kompliziert...