Optimale Spaltenbreite für alle Spalten einer Excel-Tabelle
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:
Alle Spalten mit Inhalt werden in ihrer Breite angepasst, die leeren Spalten behalten die eingestellt Standardbreite.
Werden Sie mit unseren Tipps zum Excel-Profi!
- 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.
