Code ausführen, wenn Zelle bestimmten Wert hat

[o0Julia0o]

hi, wie kann ich einen Code ausführen, wenn ein bestimmtes Feld eine bestimmte Zahl anzeigt? Das Feld wird jedoch durch anderen Code zu diesem Wert kurzfristig verändert. Nicht durch direkte Nutzereingabe.

Das ist der Code, der funktioniert jedoch nicht:

Wenn ich den Wert von C54 manuell auf 0.000115741 einstelle, dann funktioniert es. Danke!

[Werner.M]

Hallo,

Das Feld wird jedoch durch anderen Code zu diesem Wert kurzfristig verändert.
Was meinst du hier mit kurzfristig?

Das ist der Code, der funktioniert jedoch nicht:
Welcher Code?

Gruß Werner

[Fennek]

Hallo,

ich rate mal: in der Zelle C54 steht eine Formel. Wenn sich das Ergebnis der Formel ändert wird aber kein Event ausgelöst.

Ansätze:

- die Zellen, die in die Formel eingehen zu prüfen
- C54 mit einem ActiveX - Textfeld zu verbinden

mfg

[o0Julia0o]

Also in Rech B56 steht folgendes: =B57+B58


Wenn in B56 10 steht, soll "Nachricht" ausgegeben werden. Das möchte ich so veranlassen:

Code:

Private Sub Workbook_Open()
    With Worksheets("Rech")
        If .Range("B56") = 10 Then
            MsgBox "Nachricht", 1048576, "Nachricht"
                End If
    End With
End Sub

Klappt aber nicht.

[Andrek]

Hallo,

ich bin zwar kein Experte, aber ich habe in meinem projekt folgende Code benutzt und es hat wunderbar geklappt:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If ActiveSheet.Range("B56").Value = 10 Then
         MsgBox "Nachricht", vbExclamation, "Nachricht"
    Else
        'MsgBox "keine Reaktion"
    End If

End Sub

Probier mal so 

Gruß
Andre

[o0Julia0o]

Das geht leider nicht.

Der Code wird per Klick ausgeührt:

Code:

Sub StartUhr()
    With Worksheets("Rech")
        If .Range("B56") = 10 Then
            MsgBox "Nachricht", 1048576, "Nachricht"
                End If
    End With
End Sub

[Andrek]

Hallo,

ich bin zwar kein Experte, aber ich habe in meinem projekt folgende Code benutzt und es hat wunderbar geklappt:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If ActiveSheet.Range("B56").Value = 10 Then
         MsgBox "Nachricht", vbExclamation, "Nachricht"
    Else
        'MsgBox "keine Reaktion"
    End If

End Sub

Probier mal so 

Gruß
Andre

Kleine Ergänzung: Diese Code muss in die entsprechende Tabelle rein und nicht als Modul. Das war auch mein Fehler am Anfang  :30:

VGAndre

[o0Julia0o]

Dankeschön. Das geht nicht, da ich den Code aufrufe per Linksklick auf eine Form.

[Andrek]

Schaue mal die Datei im Anhang. Vielleicht hilft dir das 

Gruß
Andre

[o0Julia0o]

Die Zelländerung wird prer Klick ausgeührt. Aber die MsgBox per Änderung.

Also:
1. Klick auf Form wird ausgeührt, dadurch ändert sich Feldwert auf 10
2. MsgBox wird ausgeführt sobald der Feldwert 10 ist.