VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Zelleingabe andere Zellen füllen

Gruppe

Ereignis

Bereich

Change

Thema

Bei Zelleingabe andere Zellen füllen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change