von Frank Arendt-Theilen:
Sub ZeilenhoeheInCm()
Dim sHoehe As Single
Dim sAktuell As Single
Dim strText As String
Dim strAntwort As String
sAktuell = Selection.RowHeight / 29.5
strText = "Aktuelle Zeilenhöhe: " & Format(sAktuell, "###0.00 cm") _
& Chr(13) & "Geben Sie die gewünschte Zeilenhöhe für die " & _
"aktuelle Zeile oder Markierung in cm ein:"
strAntwort = InputBox(strText, "Neue Zeilenhöhe festlegen", _
Format(sAktuell, "###0.00"))
If strAntwort <> "" Then
sHoehe = CSng(strAntwort)
Selection.RowHeight = sHoehe * 29.5
End If
End Sub
gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose Downloads und Lösungsansätze zu EXCEL und mehr