Gruppe
Ereignis
Problem
Bei Eingaben im Bereich B:2:D10 soll der Hintergrund der Eingabezelle und der Summenzelle in der gleichen Zeile auf rot und die Schrift auf fett gesetzt werden.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:D10")) Is Nothing Then Exit Sub
'Wenn die bestehende Markierung nicht aufgehoben werden soll,
'die beiden folgenden Zeilen auskommentieren
Range("B2:E10").Interior.ColorIndex = XlColorIndex.xlColorIndexNone
Range("B2:E10").Font.Bold = False
Target.Interior.ColorIndex = 3
Target.Font.Bold = True
Cells(Target.Row, 5).Interior.ColorIndex = 3
Cells(Target.Row, 5).Font.Bold = True
End Sub