Verbreiterung der Spalten verhindern
#1
Hallo,
ich bin "blutiger" Anfänger und benötige Hilfe bei folgendem Makro. 

Es funktioniert soweit, nur soll nach dem Drucken die zuvor eingestellte Spaltenbreite (besonders der Spalte Y) unverändert bleiben. 
Wenn ich  Cells.EntireColumn.AutoFit   lösche bleibt zwar die Spaltenbreite wie vor dem Druck, aber es werden nicht mehr alle Spalten eingeblendet.


Sub Fertigungsliste_drucken()
'Sortierung Drucken
    Sortierung_Drucken
    
'Filter setzten Ersteller<>"Anforderung", Fertiger=LEER
    Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$Y$1000").AutoFilter Field:=24, Criteria1:="="
    ActiveSheet.Range("$A$1:$Y$1000").AutoFilter Field:=1, Criteria1:= _
    "<>*Anforderung*", Operator:=xlAnd
    
'Spalten ausblenden
    Columns("E:E").Select
    Selection.EntireColumn.Hidden = True
    Columns("F:F").Select
    Selection.EntireColumn.Hidden = True
    Columns("K:K").Select

    Selection.EntireColumn.Hidden = True
    ActiveWindow.LargeScroll ToRight:=1
    Columns("W:W").Select
    Selection.EntireColumn.Hidden = True
    Columns("X:X").Select
    Selection.EntireColumn.Hidden = True
    
'Druckvorschau öffnen
    ActiveSheet.PrintPreview
    
'Filter entfernen, Spalten einblenden
    Range("A1").Select
    Selection.AutoFilter
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("A2").Select

End Sub
Zitieren to top
#2
Hallo Wodan,

dafür bietet sich die benutzerdefinierte Ansicht an.

Gruß Uwe
Zitieren to top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste