Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Schriftgröße der aktiven Zelle bei Auswahl ändern
Gruppe
SelectionChange
Problem
Wie kann ich die Schriftgröße bei Auswahl einer Zelle ändern und beim Verlassen wieder zurücksetzen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1 Public rng As Range Public dHeight As Double Public iSize As Integer Private Sub Worksheet_SelectionChange( _ ByVal Target As Excel.Range) On Error Resume Next rng.Font.Size = iSize Rows(rng.Row).RowHeight = dHeight iSize = Target.Font.Size dHeight = Rows(Target.Row).RowHeight If IsEmpty(Target) Then Exit Sub Target.Font.Size = 20 Set rng = Target Rows(Target.Row).AutoFit End Sub