Gruppe
Ereignis
Bereich
Change
Thema
Bei Eingabe von x Zelle unterhalb in fett
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