Ereignisse
Alfonso
habe ein Problem mit Ereignissen.
Mit anschliessendem Code wollte ich erreichen, dass beim auswählen bestimmter Zellen immer rechts davon der Text rot formatiert wird. Das hat auch soweit funktioniert, aber wenn die zuvor ausgewählte Zelle wieder verlassen wird, soll der Text rechts davon wieder weiss werden.
Was habe ich da falsch gemacht, bzw. wie lautet die richtige Lösung?
Für eine Hilfestellung zu meinem Problem wäre ich Euch sehr dankbar.
Private Sub Worksheet_SelectionChange( _
ByVal Target As Excel.Range)
If Target.Address = "$B$2" Then
ActiveCell.Offset(0, 1).Range("A1").Font.Color = -16776961
Else
Selection.Font.ThemeColor = xlThemeColorDark1
End If
If Target.Address = "$B$3" Then
ActiveCell.Offset(0, 1).Range("A1").Font.Color = -16776961
Else
Selection.Font.ThemeColor = xlThemeColorDark1
End If
If Target.Address = "$B$4" Then
ActiveCell.Offset(0, 1).Range("A1").Font.Color = -16776961
Else
Selection.Font.ThemeColor = xlThemeColorDark1
End If
End Sub
Gruß Helmut