Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Spalten durchlaufen und Breite um 10% erhöhen

Spalten durchlaufen und Breite um 10% erhöhen
11.06.2015 11:33:42
Peter
Guten Tag
Mit
With Range("vgl_autofit")
.columns.EntireRow.Autofit
End With
möchte ich für den Bereich die optimale Spaltenbreite einstellen.
Bei einer der Spalten klappt das - unverständlicherweise - nicht.
Deshalb möchte ich alle Spaltenbreiten um 10% erhöhen - dann stimmt es auch für die eine, die zu schmal ist.
Warum klappt das mit
For Each rng In Range("vgl_autofit").Columns
.Width = .Width * 1.1
Next rng
nicht?
Gruss, Peter

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten durchlaufen und Breite um 10% erhöhen
11.06.2015 11:56:26
Daniel
HI
weil du bei .Width noch nicht angegeben hast, wofür der Punkt steht.
entweder:
For Each rng In Range("vgl_autofit").Columns
with rng
.Width = .Width * 1.1
end with
Next rng

oder hier einfacher

For Each rng In Range("vgl_autofit").Columns
rng.Width = rng.Width * 1.1
Next rng
Bei For-Each wird nicht automatsich eine WITH-Klammer mit der Schleifenvariable erstellt.
Griuß Daniel

Anzeige
AW: Spalten durchlaufen und Breite um 10% erhöhen
11.06.2015 12:04:19
Peter
Hallo Daniel
Vielen Dank. Musste anstelle Width ColumnWidth schreiben, dass es funktionierte.
For Each rng In Range("vgl_autofit").Columns
rng.ColumnWidth = rng.ColumnWidth * 1.1
Next rng
Gruss, Peter
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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