Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

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
Antworten Top
#2
Hallo Wodan,

dafür bietet sich die benutzerdefinierte Ansicht an.

Gruß Uwe
Antworten Top


Gehe zu:


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