Anzeige
Archiv - Navigation
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

AutoFit / maximale Breite

AutoFit / maximale Breite
20.04.2004 19:19:23
Erich M.
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: AutoFit / maximale Breite
20.04.2004 19:37:36
ChrisL
Hi Erich

Sub Spalte_opt()
Dim mySpalte As Integer
Dim iSpalte As Byte
' Hier die maximale Spaltenbreite einstellen
Const MaxBreite = 50
mySpalte = Cells.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(1, 1), Cells(1, mySpalte)).EntireColumn.AutoFit
For iSpalte = 1 To mySpalte
If Columns(iSpalte).ColumnWidth > MaxBreite Then _
Columns(iSpalte).ColumnWidth = MaxBreite
Next iSpalte
End Sub


Gruss
Chris
Danke - Chris; Super das wars! o.T.
20.04.2004 19:47:33
Erich M.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige