Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
612to616
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
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

XLT Makro für automatische Spaltenbreite

XLT Makro für automatische Spaltenbreite
19.05.2005 20:23:59
Sascha
Hallo,
ich benötige in einer Mustervorlage (XLT) folgendes Makro: automatische Anpassung der Spaltenbreite, da es eine Mustervorlage werden soll, kann sich je nach Asuwertung die Spaltenbreite variieren. Ich habe folgendes versucht:

Sub anpassen()
Columns("B:B").AutoFit
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With
End Sub

Kann mir jemand helfen? Wo liegt der Fehler?

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

Betreff
Datum
Anwender
Anzeige
Was für ein Fehler? Gruß owT
19.05.2005 23:05:48
Luc:-?
:|
AW: Was für ein Fehler? Gruß owT
20.05.2005 06:59:36
Erich
Hallo,
ich habe das so gelöst:

Sub Spalte_opt()
Dim mySpalte As Integer
Dim iSpalte As Integer  ' Byte
Cells.Select
With Selection
.WrapText = False
End With
Range("A1").Select
' Hier die maximale Spaltenbreite einstellen
Const MaxBreite = 60
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

mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
EXCEL und Lottogewinne machen glücklich: http://48678.rapidforum.com
Anzeige
AW: Was für ein Fehler? Gruß owT
20.05.2005 08:37:23
Sascha
Hallo Erich,
Danke!! hat Super geklappt!!!!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige