Optimale Spaltenbreite für alle Spalten einer Excel-Tabelle

02. Juli 2008
Martin Althaus Von Martin Althaus, Excel, Office ...

So setzen Sie alle Excel-Spalten auf optimale Breite

Wenn Sie den Bereich zwischen zwei Spaltenbezeichnungen mit der Maus doppelt anklicken, stellt Excel automatisch die optimale Spaltenbreite für die Spalte ein.

Es ist mühsam, das für viele Spalten manuell zu machen. Hier ist ein Makro, mit dem Sie diese Aufgabe für die aktuelle Tabelle automatisch erledigen:

Sub AlleSpaltenOptimal()

Dim Spalte As Long, i As Long

Spalte = ActiveSheet.Cells.SpecialCells(xlLastCell).Column

For i = 1 To Spalte

ActiveSheet.Columns(i).EntireColumn.AutoFit

Next i

End Sub

Über die Funktion SpecialCells ermittelt das Makro zunächst die Nummer der letzten benutzen Spalte. In einer Schleife wird anschließend jede der Spalten über das Kommando AutoFit auf die optimale Breite gesetzt. Die folgende Abbildung zeigt, wie das Ergebnis aussehen kann:

rtemagicc_20080702-1bmp.jpg

Alle Spalten mit Inhalt werden in ihrer Breite angepasst, die leeren Spalten behalten die eingestellt Standardbreite.

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"