VorColumnWidths ()
Schwaches targ als Strecke, cel als Strecke
Auf Störungs-Zusammenfassung zunächst
Targ = Application.InputBox einstellen („die Strecke bitte vorwählen, die Sie über Spaltenbreiten für berichten möchten“, schreiben: =8)
Auf Störung Goto- 0
Wenn targ nichts dann ist, Unterseeboot herausnehmen
Application.ScreenUpdating = falsch
Targ = targ einstellen. Reihen (1)
Mit Worksheets.Add (nachher: =Worksheets (Worksheets.Count))
Für jeden cel im targ. Zellen
. Zellen (1, cel. Spalte) = cel.EntireColumn.ColumnWidth
Zunächst
Ende mit
Application.ScreenUpdating = richten aus
Enden-Unterseeboot
|