Gruppe
Ereignis
Problem
Wenn sich in Zelle I2 eine Zahl befindet, soll sich bei Auswahl dieser Zelle die Schriftgröße ändern.
ClassModule: Tabelle1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$I$2" Then
If IsEmpty(Target) Then
Target.Font.Size = 10
Exit Sub
End If
If IsNumeric(Target.Value) Then
Target.Font.Size = 24
Else
Target.Font.Size = 10
End If
Else
Range("I2").Font.Size = 10
End If
End Sub