ich möchte gern die Tabellenblätter von 1-12 auswählen um die Spalten und Zeilen einheitlich
einzustellen.
Application.ScreenUpdating = False
Rows("1:1").RowHeight = 11
Rows("2:2").RowHeight = 13
Rows("3:3").RowHeight = 22
Rows("4:4").RowHeight = 4
Rows("5:5").RowHeight = 15
Rows("6:6").RowHeight = 15
Rows("7:7").RowHeight = 20
Rows("8:8").RowHeight = 14
Rows("9:9").RowHeight = 14
Rows("10:10").RowHeight = 14
Rows("11:11").RowHeight = 15
Rows("12:12").RowHeight = 20
Rows("13:13").RowHeight = 50
Rows("14:44").RowHeight = 16
Columns("a:a").ColumnWidth = 1.2 'EntireColumn.AutoFit (anpassen)
Columns("b:b").ColumnWidth = 5
Columns("c:c").ColumnWidth = 11
Columns("D:D").ColumnWidth = 11
Columns("e:e").ColumnWidth = 9
Columns("f:f").ColumnWidth = 9
Columns("g:g").ColumnWidth = 9
Columns("h:h").ColumnWidth = 14
Columns("i:i").ColumnWidth = 14
Application.ScreenUpdating = True
mfg
sigrid