ich weiß, ich habe vor kurzem schon eine ähnliche Frage gestellt aber ich habe ein Textfeld erstellt, welches eingeblendet werden soll, wenn ich in eine bestimmte Zelle einen Wert zwischen 1 und 50 eintrage. Mit folgender Formel klappt es zumindest schon mal, wenn ich den Wert in der Zelle um 1 erhöhe. Sofort erscheint mein Textfeld.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
Dim Tmp
If Not Intersect(Range("G17:G27"), Target) Is Nothing Then
Application.EnableEvents = False
Application.Undo
Tmp = Range("G28").Value
Application.Undo
Application.EnableEvents = True
If Range("G28").Value = Tmp + 1 Then
MsgBox "Wert um 1 erhöht"
End If
End If
Fehler:
Application.EnableEvents = True
End Sub
Ich möchte, dass das Textfeld auch erscheint, wenn ich Werte zwischen 2 und 50 eintrage. Hat da jemand eine Idee?
Gruß Pflaume