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 sind; Die von diesem Forum gesetzten Cookies düfen nur auf dieser Website verwendet werden und stellen kein Sicherheitsrisiko dar. Cookies auf 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.

Die Updates sind abgeschlossen. Bitte meldet eventuelle Bugs und Auffälligkeiten im entsprechenden Forum.
Sollte das Loginfenster nicht sichtbar sein, ist es unten links. Entweder Ihr loggt Euch dort ein oder löscht den Browsercache und versucht es noch einmal.


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
Antwortento top
#2
Hallo Wodan,

dafür bietet sich die benutzerdefinierte Ansicht an.

Gruß Uwe
Antwortento top


Gehe zu:


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