Inhaltsverzeichnis
Nachdem Sie ein Arbeitsblatt mit VBA bearbeitet haben, kann es erforderlich sein, Ihre Spalten automatisch anzupassen, um das bestmögliche Endergebnis zu präsentieren. So passen Sie Spalten mit VBA automatisch an.
Spalte automatisch anpassen mit VBA
Dieser Code passt die Spalten A und B automatisch an. Die automatische Anpassung wird auf das aktive Blatt angewendet.
1 | Columns("A:B").EntireColumn.Autofit |
Alle verwendeten Spalten automatisch anpassen
Was ist, wenn Sie alle verwendeten Spalten in einem Arbeitsblatt automatisch anpassen möchten? Verwenden Sie die obige Methode in Kombination mit Count the Number of Used Columns und einer Schleife.
Der folgende Code passt alle verwendeten Spalten mit VBA automatisch an:
1234567891011 | Sub AutofitAllUsed()Dim x As IntegerFür x = 1 Zu ActiveSheet.UsedRange.Columns.CountSpalten(x).EntireColumn.autofitNächstes xEnd Sub |