automatisch Spaltenbreite anpassen Filte

Hallo zusammen,
folgendes Probelm: Wenn ich eine Datei habe, in der eine Tabelle mit Filtern in den Überschriften ist, ist die minimale Spaltenbreite an die Filter begrenzt.
Nach ausblenden der Filter kann man auch wieder ganz normal alle Zellen markieren und mithilfe von der automatisch anpassen funktion die Breite an den auch kürzeren Zellinhalt anpassen.
Gibt es eine Möglichkeit die minimale Spaltenbreite mit eingeblendeten Filtern auf einen bestimten kleineren Minimalwert umzustellen? Natürlich auch mit dem Wissen, dass ich auch alle Zellen unterhalb der Filter markieren kann.
Vllt nochmal als konkretere Frage: Bei mir ist die Spaltenbreite nach der automatischen Anpassung überall mindestens 9,57 (Wenn eine Spalte längere Einträge hat entsprechend länger), kann man die 9,57 auf zum Beispiel 6 umstellen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long 'Schleifenzähler Spalten For i = 1 To Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column 'erste bis letzte genutzte Spalte, evtl. anpassen! If Columns(i).ColumnWidth "" Then 'wenn Zelle NICHT leer, dann Columns(i).EntireColumn.AutoFit 'Spaltenbreite an Inhalt anpassen Else: Columns(i).ColumnWidth = 6 'ansonsten Spaltenbreite auf 6 setzen End If Next i 'nächste Spalte End Sub

Sub Spaltenbreite()" oder so schreiben. Spaltenbreite ist änderbar. Dann musst du es allerdings in einem allg. Modul speichern und nicht unter dem Tabellenblatt speichern. Was du noch versuchen kannst, das habe ich hier nicht drin gehabt: Unter "Private Sub..." schreibst du "Application.ScreenUpdating = False" und direkt über dem "End Sub

Hallo Hannes,
es handelt sich um eine Fenster im VB-Explorer.
Also mit Alt+F11 von Excel aus, bist Du in VB-Explorer,
dort mit Strg+g das Direktfenster (im Menü "Ansicht" heisst es "Direktfenster", im Überschrift "Direktbereich").
Darin kannst Du z.B.
?1+2 eingeben und Enter (Fragezeichen ist die Kurzform von "Print")
oder ?now
oder for each w in workbooks:?w.name:next (es muss alles auf eine Zeile sein, daher die Doppelpunkte)
Um aus dem VBA-Codepanel ins direktfenster auszugeben, nutzt Debug.Print
Debug.Print Activesheet.Name
Auch nutzvoll ist das sogenannte Lokalfenster ("Ansicht", "Lokalfenster"): im Schrittmodus (F8) kannst Du darin den Zustand alle Variablen und Objekte sehen. Es erschlägt ein Bischen am Anfang, aber es hilft zu verstehen, wie die Objekt/Eigenschaften zusammenhängen (wichtig).
Letztendlich die Überwachungsfenster. Du kannst ein Ausdruck markieren und mit rechtem Maustaste "Überwachung hinzufügen..." es kann auf eine einzige Sub/Function oder global gelten. Einfach probieren, es geht nichts kaputt.
Mit dem ersten Code werden die Spaltenbreite gelesen und im Drektfenster ausgegeben. Dort kann man das Ergebnis markeieren und im Codepane als Const eintragen.
VG
Yal

Beliebteste Forumthreads (12 Monate)

automatisch Spaltenbreite anpassen Filte

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

175 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

automatisch Spaltenbreite anpassen Filte

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

175 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread