Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Worksheet_Change bei Änderung des Zellwert | Herbers Excel-Forum


Betrifft: Worksheet_Change bei Änderung des Zellwert von: Frank Schmalacker
Geschrieben am: 18.01.2010 10:19:10

Hallo zusammen,
Ich überwache die Zelle A1. Bei Änderung der Zelle soll per Worksheet_Change ein Ereingnis ausgeführt werden. Worksheet_Change reagiert leider auch, wenn der Zellwert gleich bleibt. Beispiel: A1 hat den Wert "10". Ein anderes Makro "überschreibt" A1 mit dem Wert "10"; das Ereignis wird dennoch ausgelöst. Kann das verhindert werden?
Vielen Dank,
Frank

  

Betrifft: AW: Worksheet_Change bei Änderung des Zellwert von: Tino
Geschrieben am: 18.01.2010 10:26:54

Hallo,
Du kannst Dir den Wert aus A1 in einer Static Variablen merken und diesen mit überprüfen.
Static Variablen behalten den Wert auch nach beenden der Prozedur.

Beispiel:

Private Sub Worksheet_Change(ByVal Target As Range)
Static MerkA1

If MerkA1 <> Range("A1") Then
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        MsgBox "A1 wurde geändert"
        '...
        '...
        '...
        'Wert in Zelle A1 merken
        MerkA1 = Range("A1")
    End If
End If

End Sub
Gruß Tino


  

Betrifft: superb! das funktioniert! dankeschön! [n/t] von: Frank Schmalacker
Geschrieben am: 18.01.2010 10:44:54

-


Beiträge aus den Excel-Beispielen zum Thema "Worksheet_Change bei Änderung des Zellwert"