schon seit mehreren Tage ärgere ich mich immer wieder mit dem selben Problem. Ich bin mir sicher es fehlt nicht mehr viel zur Lösung.
Vereinfachte Problematik:
Ich möchte eine mit VBA eine variable Eingabemeldung (Daten->Datenprüfung->Eingabemeldung)erzeugen.
Wenn Zelle B1 ausgewählt dann,
Wenn Zelle A1 = 555, dann soll die Eingabemeldung "Hallo" in Zelle B1 erscheinen.
Wenn Zelle A1 = 554, dann soll die Eingabemeldung "Okay" in Zelle B1 erscheinen.
Hier mein bisheriger Ansatz:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
With Target.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop,Operator:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Eingabe:"
.ErrorTitle = ""
.InputMessage = "Hallo"
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Damit gelingt es mir eine Eingabemeldung bei Zellauswahl anzeigen zu lassen. Ich schaff es jedoch nicht die die oberhalb beschriebenen Bedingungen einzubeziehen.
Vielen Dank schon mal.
Gruß Manuel