Hallo Thea,
"Leerzellen ignorieren" häkchen raus, sorry hab ich vergessen zu erwähnen. Manche Sachen macht man automatisch ohne dem Bedeutung beizumessen. Asche auf mein Haupt :-)
Für Großbuchstaben musst du die Formel Identisch() verwenden:
=UND(E4="";ODER(IDENTISCH(L4;"A");IDENTISCH(L4;"B");IDENTISCH(L4;"C")))
dann runterziehn.
oder doch die Makrovariante, hier nochmal auf Spalte L angepasst, damit in den anderen Zellen normaleingaben möglich sind.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("L:L")) Is Nothing Then
If Target <> "A" And Target <> "B" And Target <> "C" Or Cells(Target.Row, 5) <> "" Then
MsgBox "Eingabe nur A, B oder C wenn spalte E = leer"
Application.EnableEvents = False
Target = ""
Application.EnableEvents = True
End If
End If
End Sub
Gruß Mr. K.
|