Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Eingabe eines X nur einmal zulassen und Wert aufrufen

Gruppe

Change

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.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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