Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Eingabe von "x" Zelle unterhalb in fett

Gruppe

Change

Problem

Wie kann ich veranlassen, dass bei der Eingabe eines x die Zelle unterhalb als fett formatiert wird und diese Formatierung bei einer anderen Angabe wieder aufgehoben wird?

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

ClassModule: Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column > 2 Then Exit Sub
   If Target.Value = "x" Then
      Target.Offset(2, 0).Font.Bold = True
   Else
      Target.Offset(2, 0).Font.Bold = False
   End If
End Sub