Spaltenbreite
05.12.2007 12:19:15
michael
Meine bitte , kann man das auch schöner lösen ?
Wenn Ja bitte wie-Danke michael
Sub breitesumme()
Columns("A:A").Select
Selection.ColumnWidth = 5.86
Columns("B:B").Select
Selection.ColumnWidth = 28.43
Columns("C:C").Select
Selection.ColumnWidth = 4.71
Columns("D:D").Select
Selection.ColumnWidth = 10.86
Columns("E:E").Select
Selection.ColumnWidth = 7.57
Columns("F:F").Select
Selection.ColumnWidth = 5.43
Range("A7").Select
End Sub