Gruppe
Ereignis
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?
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