AW: Sub ActiveCell_Change()
22.09.2005 09:04:11
Heiko
Hallo Gerd,
z.B. so:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngSchnitt As Range
Set rngSchnitt = Application.Union(Range(Target.Address), Range("A1"))
If rngSchnitt.Address = Target.Address Then
MsgBox "Das is doch die die überwacht wird !", vbInformation
' Hier kann dann dein Code rein der auf die Änerung von A1 reagiert.
' $A$1 auf deine Wünsche anpassen
End If
End Sub
oder so:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
MsgBox "Das is doch die die überwacht wird !", vbInformation
' Hier kann dann dein Code rein der auf die Änerung von A1 reagiert.
' $A$1 auf deine Wünsche anpassen
End If
End Sub
Der Unterschied zwischen beiden ist, das bei der ersten auch überwacht wird wenn z.B. die ganze 1. Zeile oder Spalte A gelöscht wird. Bei der 2. Version wird nur überwacht wenn sich was in Zelle A1 ändert.
Gruß Heiko
PS: Rückmeldung wäre nett !