Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Änderung der Schriftgröße bei Zellauswahl

Gruppe

SelectionChange

Problem

Wenn sich in Zelle I2 eine Zahl befindet, soll sich bei Auswahl dieser Zelle die Schriftgröße ändern.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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