Form einfügen durch Eingabe eines bestimmten Werts
25.03.2016 12:49:25
Pflaume
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
Anzeige