Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

XLT Makro für automatische Spaltenbreite

Forumthread: 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?
Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige