Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1836to1840
1836to1840
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Spaltenbreite

Forumthread: Spaltenbreite

Spaltenbreite
10.07.2021 00: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Spaltenbreite
10.07.2021 00: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 07: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 12:38:32
Burghard
Hallo RPP63,
perfekt! Ergebnis ist wie gewünscht! :-)
Danke!
Grüße
Burghard
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum