Office: Probleme mit Zeilenhöhe

Hallo zusammen.

Ich habe folgendes Makro erstellt:

Zeilenhöhe in cm

Sub zeilenhoehe()
Dim hoehe As Single, aktuell As Single, text As String, antwort As String
aktuell = Selection.RowHeight / 29.5
text = "Aktuelle Zeilenhöhe: " & Format(aktuell, "###0.00 cm") & Chr(13) & "Geben Sie die gewünschte Zeilenhöhe für die aktuelle Zeile oder Markierung in cm ein:"
antwort = InputBox(text, "Neue Zeilenhöhe festlegen", Format(aktuell, "###0.00"))
If antwort <> "" Then
hoehe = CSng(antwort)
Selection.RowHeight = hoehe * 29.5
End If
End Sub

Wenn ich dann eine Zeilen höhe von 15cm als bespiel angeben will, habe ich immer folgende Fehlermeldung:

Laufzeitfehler 1004
Die Rowheight-Eigenschaft des Range-Objekts kann nicht festgelegt wedern.

Dann auf Debuggen:
Selection.RowHeight = hoehe * 29.5

Wie kann ich das Problem lösen?

Danke vorab

 

ich vermute hoehe*29.5>409

 

Hallo,

1) die RowHeight-Eigenschaft wird in Punkt angegeben: 1 Zoll = 72 Punkt, 1 Zoll = 2.54 cm, sodass 1 cm = 72/2.54 Punkt = 28.3465 Punkt beträgt (und nicht 29.5).

2) Du kannst im Arbeitsblatt ausprobieren, wie hoch man eine Zeile einstellen kann mit der Maus. Man kann nämlich eine Zeile nicht beliebig hoch einstellen. Wenn Du am linken Rand (wo sich die Zeilennummerierung befindet) mit der Maus auf einen Zellstrich zeigst (der Mauszeiger schaltet auf einen vertikalen Doppelpfeil mit waagrechten Strich um) und die linke Maustaste niederdrückst, so wird die Zellhöhe in Punkt angezeigt.
Wie Du Dich vergewissern kannst, ist die maximale Zellhöhe 409.5 Punkt.
409.5 Punkt = 409.5 /72*2.54 cm = 14.446 cm ist somit die maximale Zell- bzw. Zeilenhöhe.