Office: Code für Abfrage, wenn ein Wert über 50, dann in Zelle....

Hallo!
Ich brauche dringend eure hilfe!
Ich habe eine Tabelle. Wenn ich in einer bestimmten Zelle einen Wert über 50 eingebe, soll dann eine Abfrage kommen, ob der Wert wirklich über 50 liegt! es soll die Möglichkeit der Antwort NEIN und Ja geben. bei Ja soll nun ein Fenster kommen, in dem irgendetwas eingegeben werden kann und nach bestätiten "ok" dann in einer bestimmten Zelle angezeigt wird!

Könnte mir einer vielleicht dne VBA Code dafür erstellen! bin da nicht so fit drin!

vielen dank!

 

Hallo!

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim msg As String
If Range("a1").Value >= 50 Then
msg = MsgBox("Ist der Wert wirklich über 50?", vbYesNo)
If msg = vbYes Then
Range("a1").Value = InputBox("Geben Sie hier Ihren Wert ein")
End If
End If
End Sub

Dieser Code hier z.B erstellt eine Msgbox wen´der Wert in A1 größer als 50 ist und dann eine Inputbox wo du den Wert von A1 wieder ändern kannst.

Auf Tabellenreiter rechtsklick-> Code anzeigen-> hier den Code einfügen

 

super das klappt! vielen dank! habe aber den code dahingehend geändert das der wert der dann eingegeben wird in der zelle b1 angezeigt wrid. nur noch ein kleines problem. wenn ich in a1 einen wert über 50 eingebe, dann klappt das wunderbar. auch noch weiter unter unten der in spalte. is aber in der zelle a1 ein wert unter 50 und dann in zelle a2 ein wert über 50, kommt keine abfrage! wieso nicht?

 

super das klappt! vielen dank! habe aber den code dahingehend geändert das der wert der dann eingegeben wird in der zelle b1 angezeigt wrid. nur noch ein kleines problem. wenn ich in a1 einen wert über 50 eingebe, dann klappt das wunderbar. auch noch weiter unter unten der in spalte. is aber in der zelle a1 ein wert unter 50 und dann in zelle a2 ein wert über 50, kommt keine abfrage! wieso nicht?