HERBERS Excel-Forum - die Beispiele

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