Eingabe in einer Zelle auf Yes/No beschränken
31.01.2005 17:38:55
Thomas
Ich habe mit Unterstützung aus dem Forum eine Anweisung gebastelt, die (i) die Buchstaben in den Zellen e72 bis e74 in Großbuchstaben umwandelt und (ii) abfragt, ob nach Änderung einer Zelle im Bereich e55 bis e74 die Arbeitsmappe neu berechnet werden soll. Der Code sieht wie folgt aus:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range
Dim RanZelle As Range
Application.EnableEvents = False
Set RaBereich = Range("e72:e74")
For Each RanZelle In Range(Target.Address)
If Not Intersect(RanZelle, RaBereich) Is Nothing Then
RanZelle.Value = UCase(RanZelle.Value)
End If
Next RanZelle
Application.EnableEvents = True
Set RaBereich = Nothing
If Intersect(Target, Range("e55:e74")) Is Nothing Then Exit Sub
Mldg = MsgBox("Would you like the file being recalculated?", vbYesNo)
If Mldg = vbYes Then
Call Makro0
End If
End Sub
Nun meine Frage: Ich würde gerne eine Beschränkung in die Anweisung einbauen, nach der in den Zellen e72 bis e74 nur ein "yes" oder "no" (egal ob in Groß- oder Kleinbuchstaben) eingetragen werden kann. Sobald ein anderer Begriff oder eine Zahl eingetragen wird, soll eine Fehlermeldung erscheinen. Habt Ihr eine Idee, wie die Lösung aussehen könnte?
Vielen Dank,
Thomas
Anzeige