Sub Zeilenhöhe()
Dim Höhe, HöheNeu As Single
Dim i, S As Single
i = ActiveCell.Row
S = ActiveCell.Column
Do
Höhe = Rows(i).RowHeight
HöheNeu = InputBox("Höhe von Zeile " & i & ": " & Höhe & vbLf & _
vbLf & _
vbLf & _
"Neue Höhe:", , Höhe)
>>>>>>>> Abbruch der Inputbox für zu Laufzeitfehler 13 Typen unverträglich.
If HöheNeu = "0" Then Exit Sub >>> hilft auch nicht weiter
Rows(i).RowHeight = HöheNeu
i = i + 1
Cells(i, S).Select
Loop Until i = 1250
End Sub
|