Gruppe
Ereignis
Bereich
SelectionChange
Thema
Schriftgröße der aktiven Zelle bei Auswahl ändern
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