Dies funktioniert gut, um alle Zeilen auf 25 Pixel zu setzen. Sub sbChangeRowHeightMulti() Rows("3:1000").RowHeight = 25 End Sub Aber ich möchte die vorhandene Zeilenhöhe nehmen und 10 hinzufügen. Also so etwas wie dieser Pseudocode: Sub sbChangeRowHeightMulti() Rows("3:1000").RowHeight =...