Hallo EXCEL-Freunde,
habe heute bereits eine Lösung erhalten und möcht diese nun für einen
täglichen Bedarf anpassen. Es geht um die automatische Anpassung der Spalten-
breite einer bestimmten Range (UsedRange). Der nachstehende Code funktioniert
auch; aber wenn ich eine sehr breite Spalte habe, sollte diese auf (z.B.)
max. 550 Pixel verbreitert werden. Wie müsste ich anpassen?
Option Explicit
Sub Spalte_opt()
Dim mySpalte As Integer
mySpalte = Cells.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(1, 1), Cells(1, mySpalte)).EntireColumn.AutoFit
End Sub

Code eingefügt mit: Excel Code Jeanie
Besten Dank für eine Hilfe!
vorheriger Thread:
https://www.herber.de/forum/archiv/416to420/t416072.htm
mfg
Erich