Thema: Spaltenbreite anpassen

Home

Gruppe

Format

Problem

Wie kann ich die Spaltenbreite nach dem Zellwert einstellen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub FitColumns()
   Dim intCounter As Integer
   For intCounter = 1 To 3
      Columns(intCounter).ColumnWidth = _
         Cells(1, intCounter).Value
   Next intCounter
End Sub

Beiträge aus dem Excel-Forum zu den Themen Format und Spalte

Kopieren Spalte aus AutofilterTabelle	Anzahl belegter Spalten pro Zeile
letzte Spalte irritiert	Bedingte Formatierung vor Copy/Paste schützen
String(Zahlen) in Spalten aufteilen	Spaltenname einer intelligenten Tabelle ändern?
Spalte anzeigen in der das erste Mal Ausgang +10%	add Spalten/Zeilen schützen
Spalten kopieren	Replace: Quell- und Zielspalte definieren
letzten vorstehenden Wert in der Spalte addieren	Einzelne Spalten aus Tabelle Laden
VBA - Eingabefeld für gesamte Spalte	Bed. Formatierung, wenn alle Beding. erfüllt.
Spalte durchsuchen + IF	Telefonnummer automatisch per VBA formatieren
Komplettes Excel Sheet kopieren mit Formaten	Spalte auslesen, weiter übertragen
Aus Matrix Spalten auslesen, die best. Wert haben	Bedingte Formatierung per VBA mit Schleife
letzte spalte mit Inhalt komplett löschen	Kartendiagramm per VBA erstellen und formatieren
Letzte Spalte / Zeile entgegengesetzt ermitteln	bedingte Formatierung
mehrere Spalten untereinander	Summe von letzter freier Zelle in Spalte
Werte aus unterschiedlichen Spalten einfügen	Zellfarbe per Cond Formatting nach Zellfarbe änder
UserForm im Querformat drucken	Bedingte Formatierung
Teilstringabfrage bei bedingter Formatierung	Bedingte Formatierung mit UND Verknüpfung
Zellen aus Liste in Spalten korrekt umsortieren	VBA bestimmte Spalten kopieren
Listbox viele spalten	Daten aus Zeilen in Spalte
Suche in Autofiltern in verschiedenen Spalten	Textformat (VBA)
Bedingte Formatierung Frage	Array in Tabelle kopieren, Verlust von Format
Ausgewählte Zellen (Variabel) in Spalte A markiere	Übernahme in Word Format wird nicht übernommen
VBA, 4 Informationen in 4 Zellen schreiben	bedingte Formatierung mit mehreren Bedingungen
Datum aus Oracle-Abfrage als Datum formatieren	Daten aus verschiedenen Spalten zusammenführen
Bedingte Formattierung	Spalte in andere Dateien kopieren + zurückkopieren