Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Zelleingabe andere Zellen füllen

Gruppe

Change

Problem

Bei Eingabe von x oder y im Bereich K21:K51 sollen in den jeweiligen Zeilen in den Spalten C und D Bindestriche eingetragen werden.

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

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
   If Target.Value <> "x" And Target.Value <> "y" Then
      Target.Offset(0, 1).ClearContents
      Target.Offset(0, 2).ClearContents
   Else
      Target.Offset(0, 1) = "-"
      Target.Offset(0, 2) = "-"
   End If
End Sub