Schriftgrösse in Abhängigkeit Zeilenhöhe

[Dude85]

Hallo miteinander

In einem bestimmten Bereich Range("P27:BD52") können Werte erfasst werden.
Die Zeilenhöhe ist auf 13.5 eingestellt. Die Schriftgrösse ist Arial 7.

Über eine Schaltfläche+VBA werden die Zeilenhöhen grösser oder kleiner; mit einem integrierten Code (per call) soll noch die Schriftgrösse angepasst werden.
Wenn die Zeilenhöhe grösser wird als 13.5 soll die Schriftgrösse nicht angepasst werden. Im umgekehrten Falle (Höhe kleiner, Schriftgrösse kleiner) aber schon, damit die Lesbarkeit erhalten bleibt.

Auf office-hilfe.com => "Schriftgröße Automatiscch per VBA" habe ich einen interessanten Ansatz gefunden... bei der Umsetzung scheitere ich aber Mangels VBA-Kenntnissen, wenn die Zeilenhöhen grösser werden als 13.5.
Es würde mich freuen, wenn mir jemand helfen könnte!

Code:

Sub schrift_vergr()
Dim wert As Long
Dim zelle As Range
Dim bereich As Range
Set bereich = Range("P27:BD52")

For Each zelle In bereich
   wert = Round(zelle.RowHeight, 0) * 0.73
   zelle.Font.Size = wert
Next zelle

End Sub

Bitte teilt mir mit, wenn man solche Codes aus anderen Quellen anders zitiert - thx.

Liebe Grüsse
Urs

[Dude85]

Guten Morgen

ich glaube mit dem Code ist das Problem gelöst:

Code:

Dim wert As Long
Dim zelle As Range
Dim bereich As Range
Set bereich = Range("P27:BD52")

For Each zelle In bereich

   If zelle.RowHeight < 13.5 Then
       wert = Round(zelle.RowHeight, 0) * 0.73
       zelle.Font.Size = wert
   ElseIf zelle.RowHeight > 13.5 Then
       zelle.Font.Size = 7
   End If

Next zelle

Alles Gute und liebe Grüsse
Urs