Anzeige
Archiv - Navigation
1428to1432
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
Inhaltsverzeichnis

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

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

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
Anzeige

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige