Automatische Spaltenbreite
Ausgangslage - Was tut dieser Code-Schnipsel?
Ein kleines Hilfs-Makro, um alle Spalten in allen Tabellenblättern auf automatische Spaltenbreiten einzustellen.
Der Quelltext
Option Explicit
' Original-Quelltext unter: https://www.online-vba.de/automatische-spaltenbreite
' Express-Hilfe für VBA unter https://www.online-vba.de/vba-expresshilfe
' Es gelten die Nutzungsbedingungen von Online-VBA.de
Public Sub OVBAde_AutoFitColumnsAllTables()
Dim oTable As Object
For Each oTable In ActiveWorkbook.Worksheets
oTable.Columns.AutoFit
Next oTable
Set oTable = Nothing
End Sub
Anmerkungen und Hinweise
Dieser Codeschnipsel wurde geschrieben von Marc Wershoven im Jahr 2017.
Die Nutzung erfolgt auf eigene Gefahr.
Bitte denken Sie immer zuerst an eine ausreichende Datensicherung.
Wir können keinen kostenlosen Support anbieten.
Es gelten unsere Nutzungsbedingungen.
