Gültigkeitsprüfung mit VBA
Markus
ich habe folgendes Makro gefunden, welches auch so funktioniert.
Jedoch benötige ich folgende Änderungen:
- die Gültigkeitsprüfung sollte nicht für Tabelle1 und 2 gelten
- Die Prüfung sollte sofort nach dem Verlassen der Zelle, egal ob mit Tastatur oder Maus erfolgen
- Uhrzeiten (z.Bsp. 17:00)dürfen ebenfalls in diesem Bereich eingetragen werden dürfen
Ist das möglich?
Danke und Gruß
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A1:D100")) Is Nothing Then Exit Sub
Select Case Target.Value
Case "A", "P", "F", "M", "S", ""
Case Else
MsgBox "Sie müssen einen der vorgegebenen Buchstaben P, F, M, S oder A verwenden", _
vbCritical, "Hinweis an " & Application.UserName
Application.EnableEvents = False
With Target
.Value = ""
.Select
End With
Application.EnableEvents = True
End Select
End Sub