Zeilenhöhe
08.05.2021 13:41:04
Detlef
ich möchte in bestimmten Bereichen alle Zeilen auf Zeilenhöhe 80 einstellen. Die Zeilen die über 80 sind, sollen aber die vorhandene Höhe behalten.
Sub zellenhöhe80()
' Zellenhöhe auf 80 einstellen
Rows("16:63").Select
Selection.RowHeight = 80
Rows("16:63").Select
Selection.RowHeight = 80
Rows("66:221").Select
Selection.RowHeight = 80
Rows("224:251").Select
Selection.RowHeight = 80
Rows("254:258").Select
Selection.RowHeight = 80
Rows("261:280").Select
Selection.RowHeight = 80
Rows("283:293").Select
Selection.RowHeight = 80
Rows("296:325").Select
Selection.RowHeight = 80
Rows("327:333").Select
Selection.RowHeight = 80
Rows("336:345").Select
Selection.RowHeight = 80
End Sub
Kann mir jemand helfen?
Vielen Dank.
Detlef