Feste Spaltenbreite

Bild

Betrifft: Feste Spaltenbreite
von: Gio*
Geschrieben am: 17.03.2005 14:40:03
Salü,
Mein Problem ist folgendes:
Beim aktualisieren der Pivot Tabelle wird die Spaltenbreite jedes mal verstellt so das ich jede einzelne wieder anpassen muss.
Gibt es eine Möglichkeit den Spalten eine feste Breite zuzuweisen die sie dann für immer beibehalten.
Danke für die Antwort
Gio*

Bild

Betrifft: AW: Feste Spaltenbreite
von: Holger Levetzow
Geschrieben am: 17.03.2005 14:47:22
Hallo Gio,
sieh mal in der Symbolleiste unter PivotTable unter Tabellenoptionen nach (dort "Formatierung beibehalten").
Holger
Bild

Betrifft: AW: Feste Spaltenbreite
von: Gio*
Geschrieben am: 17.03.2005 14:49:46
Hallo Holger,
danke für die rasante Antwort, jedoch habe ich diese Option bereits abgecheckt. Funktioniert leider nicht.
Trozdem Danke!
Gio*
Bild

Betrifft: AW: Feste Spaltenbreite
von: Holger Levetzow
Geschrieben am: 17.03.2005 14:51:55
ladfe die datei doch mal hoch, damit man den Effekt betrachten kann.
Holger
Bild

Betrifft: AW: Feste Spaltenbreite
von: Gio*
Geschrieben am: 17.03.2005 14:55:27
Sorry, darf nicht. Sind streng vertrauliche Daten.
Aber nochmals Danke
Gio*
Bild

Betrifft: AW: Feste Spaltenbreite
von: Holger Levetzow
Geschrieben am: 17.03.2005 14:55:54
Hallo Gio,
nicht nötig. Du musst den Haken bei "Tabelle AutoFormatieren" rausnehmen.
Holger
Bild

Betrifft: AW: Feste Spaltenbreite
von: Gio*
Geschrieben am: 17.03.2005 15:22:07
Das Problem ist, das PivotTable ist mit einer Formatvorlage verknüpft, wenn ich also den Haken entferne, entferne ich auch die Vorlage.
Aber weisst Du zufälligerweise wie ich ein Makro erstelle der mit immer automatisch die richtige (optimale) Spaltenbreite einstellt?
Gio*
Bild

Betrifft: AW: Feste Spaltenbreite
von: Erich M.
Geschrieben am: 21.03.2005 18:35:29
Hallo Gio,
ärgere mich da auch immer; habe das so gelöst:

Sub Spalte_opt()
Dim mySpalte As Integer
Dim iSpalte As Integer  ' Byte
Cells.Select
    With Selection
        .WrapText = False
    End With
Range("A1").Select
' Hier die maximale Spaltenbreite einstellen
Const MaxBreite = 60
mySpalte = Cells.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(1, 1), Cells(1, mySpalte)).EntireColumn.AutoFit
For iSpalte = 1 To mySpalte
    If Columns(iSpalte).ColumnWidth > MaxBreite Then _
    Columns(iSpalte).ColumnWidth = MaxBreite
Next iSpalte
End Sub

mfg
Erich
http://www.toolex.de
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Feste Spaltenbreite"