KutoolsforOffice — Eine Lösung, fünf leistungsstarke Tools.Mehr erreichen mit weniger Aufwand.März-Aktion: 20 % Rabatt

Wie passt man die Spaltenbreite in Excel automatisch an?

AutorXiaoyang Änderungsdatum

In Excel können Sie die Spaltenbreite mühelos an den Zellinhalt anpassen – nutzen Sie einfach die AutoFit-Spaltenbreite-Funktion! Manchmal wünschen Sie sich, dass sich die Spalte automatisch an den längsten Text in dieser Spalte anpasst: Sobald Sie eine lange Textzeichenfolge in eine Zelle eingeben, sollte sich die Spaltenbreite sofort der Inhaltslänge anpassen. Geht das in Excel?

Spaltenbreite automatisch anpassen mit VBA-Code

Spaltenbreite automatisch anpassen mit Tastenkombinationen


Spaltenbreite automatisch anpassen mit VBA-Code

Es scheint ein cleverer Trick zu sein, die Spaltenbreite automatisch an die Länge des Zellinhalts anzupassen – und dafür können Sie den folgenden VBA-Code nutzen.

1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic für Applikationen-Fenster zu öffnen.

2.Doppelklicken Sie anschließend auf DieseArbeitsmappeim VBA-Projekt-Bereich im linken Fensterbereich, um ein leeres Modul zu öffnen, und fügen Sie dann den folgenden VBA-Code in das Modul ein:

VBA-Code: Spalten in der Arbeitsmappe automatisch anpassen

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Update 20141127
Dim xCol, xoutCol
xCol = Target.Column
If xCol > 52 Then
xoutCol = Chr(Int((xCol - 1) / 52) + 64) & _
Chr(Int((xCol - 27) / 26) + 64) & _
Chr(Int((xCol - 27) Mod 26) + 65)
ElseIf xCol > 26 Then
xoutCol = Chr(Int((xCol - 1) / 26) + 64) & _
Chr(Int((xCol - 1) Mod 26) + 65)
Else
xoutCol = Chr(xCol + 64)
End If
Columns(xoutCol & ":" & xoutCol).AutoFit
End Sub

Ein Screenshot, der zeigt, wie der VBA-Code verwendet wird

3. Führen Sie anschließend diesen Code aus. Ab sofort passt sich die Spaltenbreite automatisch an den Inhalt an, sobald Sie längeren Text in eine Zelle eingeben.


Spaltenbreite automatisch anpassen mit Tastenkombinationen

Wenn mehrere Spalten teilweise verdeckte Zellinhalte enthalten (siehe folgender Screenshot) und Sie die Breite aller Spalten gleichzeitig an ihren Inhalt anpassen möchten, unterstützen Sie die folgenden Tastenkombinationen.

Ein Screenshot, der die ursprüngliche Spaltenbreite zeigt

1. Wählen Sie den Datenbereich aus, dessen Spaltenbreite Sie anpassen möchten.

2. Halten Sie die Alt-Taste gedrückt und drücken Sie nacheinander H + O + I. Ihre Spaltenbreiten werden nun sofort automatisch an ihren Inhalt angepasst. Siehe Screenshot:

Ein Screenshot der Spaltenbreiten, die sich an den Inhalt anpassen

Hinweis: Wenn Sie Excel 2003 oder eine frühere Version verwenden, müssen Sie stattdessen diese Tastenkombination verwenden: ALT + O + C + A.


Verwandte Artikel:

Wie passt man die Zeilenhöhe von zusammengeführten Zellen in Excel automatisch an?

Wie passt man Zeilenhöhe oder Spaltenbreite in Excel automatisch an den Textinhalt an?


Beste Office-Produktivitätstools

🤖KUTOOLS AI-Assistent: Revolutionieren Sie Datenanalyse basierend auf:Intelligente Ausführung   |  Code generieren|  benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme erstellen|  Erweiterte Funktionen aufrufen
Beliebte Funktionen:Suchen, hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten kombinieren oder Zellen ohne Datenverlust   |   Runden ohne Formel...
Erweiterte SVERWEIS:VLookup mit mehreren Kriterien  |  VLookup mit mehreren Werten  |   VLookup über mehrere Arbeitsblätter hinweg   |   Fuzzy Match....
Erweiterte Dropdown-Liste:Schnell eine Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl-Dropdown-Liste....
Spalten-Manager:Eine bestimmte Anzahl von Spalten hinzufügen|Spalten verschieben|Sichtbarkeitsstatus ausgeblendeter Spalten umschalten|Bereiche & Spalten vergleichen...
Hervorgehobene Funktionen:Gitterfokus   |  Entwurf   |Erweiterte Formelleiste   | Arbeitsmappen- & Blatt-Manager   |  Ressourcenbibliothek(AutoText)|  Datumsauswahl   |  Arbeitsblätter konsolidieren  |  Verschlüsseln/Zellen entschlüsseln   | E-Mails per Liste versenden   |  Super Filter   |   Spezialfilter(Zellen mit fettgedruckter Schrift filtern/kursiv/durchgestrichen...) ...
Top-15-Toolsets:12-Text-Tools(Text hinzufügen,Bestimmte Zeichen löschen, ...)|   50+-Diagramm-Typen(Gantt-Diagramm, ...)|   40+ Praktische Formeln(Alter basierend auf dem Geburtstag berechnen, ...)|   19-Einfüge-Tools(QR-Code einfügen,Bild aus Pfad einfügen, ...)|   12-Konvertierungs-Tools(In Wörter umwandeln,Wechselkursumrechnung, ...)|   7-Vereinigen/Aufteilen-Tools(Erweiterte Zeilen zusammenführen,Zellen aufteilen, ...)|... und mehr
Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und 40+ weitere Sprachen!

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...


Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher

  • Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
  • Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!

Alle Kutools-Add-Ins – ein Installationsprogramm

Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.

ExcelWordOutlookTabsPowerPoint
  • Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
  • Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
  • Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
  • 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
  • Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins