Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1836to1840
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

Spaltenbreite

Spaltenbreite
09.07.2021 22:03:35
Burghard
Hallo,
ich möchte bei einem Makro die Spaltenbreite etwas optmieren. Im Makro steht bei mir die Zeile:
Worksheets("Test").Cells.EntireColumn.AutoFit
Ich würde aber gerne das "AutoFit" etwas erweitern, in etwa so:
Worksheets("Test").Cells.EntireColumn.AutoFit + ColumnWidth = 8 (geht so nicht)
Geht das in anderer Form überhaupt?
Hilfe wäre nett.
Grüße
Burghard

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

Betreff
Datum
Anwender
Anzeige
AW: Spaltenbreite
09.07.2021 22:53:30
oraculix
Versuche es mal so
With Me.Test 'Tabellenname
.ColumnCount = 3 'Spalten Anzahl hier Andern
.ColumnWidths = "7cm;8cm;3cm" 'Spaltenbreite hier Ändern
.ColumnHeads = False '1Zeile ein oder aus True oder False
.RowSource = ""
End With
Gruß Oraculix
kost fast nix
AW: Spaltenbreite
10.07.2021 05:35:45
RPP63
Moin!
Teste mal:
Sub Breite()
Dim c As Range
For Each c In Worksheets("Test").UsedRange.Columns
  c.AutoFit
  c.ColumnWidth = c.ColumnWidth + 8
Next
End Sub
Gruß Ralf
Anzeige
AW: Spaltenbreite
10.07.2021 10:38:32
Burghard
Hallo RPP63,
perfekt! Ergebnis ist wie gewünscht! :-)
Danke!
Grüße
Burghard

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige