Gruppe
Ereignis
Problem
In den Zellen B22, I22 und Q22 sollen nur einmal die Eingabe eines "X" zugelassen werden. In Zelle V22 soll in Abhängigkeit der X-Eintragung der Wert 2, 4 oder 6 erscheinen.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, rngAct As Range
Dim iCounter As Integer
Set rng = Range("B22,I22,Q22")
If Intersect(Target, rng) Is Nothing Then Exit Sub
For Each rngAct In rng.Cells
If rngAct.Value = "X" Then
iCounter = iCounter + 1
If iCounter > 1 Then
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
rngAct.ClearContents
End If
End If
Next rngAct
ERRORHANDLER:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub