Sub Zeilenhoehe()
 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

Sub Spaltenbreite()
 Dim sBreite As Single
 Dim sAktuell As Single
 Dim strText As String
 Dim strAntwort As String
  sAktuell = (Selection.ColumnWidth + 0.71) / 5.1425
  strText = "Aktuelle Spaltenbreite: " & _
    Format(sAktuell, "###0.00 cm") & Chr(13) _
    & "Geben Sie die gewünschte Spaltenbreite für die " & _
    "aktuelle Spalte oder Markierung in cm ein:"
  strAntwort = InputBox(strText, "Neue Spaltenbreite festlegen", _
  Format(sAktuell, "###0.00"))
   If strAntwort <> "" Then
     sBreite = CSng(strAntwort)
     Selection.ColumnWidth = -0.71 + 5.1425 * sBreite
   End If
End Sub