|
Guten Tag zusammen
Ich wollte die Spaltenbreite in das Makro einfliessen lassen. Hat auch geklappt - Der Hacken ist jedoch, dass es mir die Werte verändert.
Das heisst es passt mir die Spalten an, jedoch nicht auf die gewünschten Zahlen, sondern auf (z.B. A:A auf 9.63 anstatt 9.57)
Sheets("Abt. 1").Select
Columns("A:A").WrapText = True
Columns("A:A").ColumnWidth = 9.57
Columns("A:A").Rows.AutoFit
Columns("B:B").WrapText = True
Columns("B:B").ColumnWidth = 12.14
Columns("B:B").Rows.AutoFit
Columns("C:C").WrapText = True
Columns("C:C").ColumnWidth = 8
Columns("C:C").Rows.AutoFit
Columns("D:D").WrapText = True
Columns("D:D").ColumnWidth = 8.86
Columns("D:D").Rows.AutoFit
Columns("E:E").WrapText = True
Columns("E:E").ColumnWidth = 5.14
Columns("E:E").Rows.AutoFit
Columns("F:F").WrapText = True
Columns("F:F").ColumnWidth = 13.29
Columns("F:F").Rows.AutoFit
Columns("G:G").WrapText = True
Columns("G:G").ColumnWidth = 8.14
Columns("G:G").Rows.AutoFit
Columns("H:H").WrapText = True
Columns("H:H").ColumnWidth = 7.71
Columns("H:H").Rows.AutoFit
Columns("I:I").WrapText = True
Columns("I:I").ColumnWidth = 4.86
Columns("I:I").Rows.AutoFit
Ich wäre sehr froh, wenn jemand eine Lösung dafür hat...würde mir das ganze Makro retten.
DANKE und Gruss
|