Opgelost Filter opslaan als nieuw blad met behoud van opmaak

[Senso]

Excel 2007
Ik wil een filter opslaan met behoud van opmaak als nieuw blad.
Wat op internet staat klopt niet. Het gaat dan wel niet over een tabel.

Om gefilterde gegevens naar een nieuw blad te kopiëren met behoud van opmaak, selecteert u de gefilterde tabel, drukt u op Alt + ; om alleen zichtbare cellen te kiezen, en kopieert (Ctrl + C) en plakt (Ctrl + V) deze vervolgens op een nieuw werkblad.

Methode 1: Kopiëren en Plakken (Handmatig)
Deze methode behoudt de opmaak en celstijlen van de originele tabel.

1. Filter uw gegevens: Pas het gewenste filter toe op uw tabel.
2. Selecteer de tabel: Selecteer het volledige bereik van de gefilterde gegevens.
3. Selecteer alleen zichtbare cellen: Druk op de sneltoets Alt + ; (puntkomma). Dit is cruciaal om te voorkomen dat verborgen rijen ook worden gekopieerd.
4. Kopiëren: Druk op Ctrl + C.
5. Nieuw blad: Maak een nieuw werkblad aan (bijv. via Shift + F11).
6. Plakken: Selecteer cel A1 en druk op Ctrl + V om de gegevens inclusief opmaak te plakken.

Als dit niet kan, wil dan iemand de volgende code aanpassen. Moet toegepast worden op actief sheet

Sub PasOpmaakBladAan()

                With ws.PageSetup
            .LeftMargin = Application.InchesToPoints(0)
            .RightMargin = Application.InchesToPoints(0)
            .TopMargin = Application.InchesToPoints(0.16)
            .BottomMargin = Application.InchesToPoints(0.16)
            .HeaderMargin = Application.InchesToPoints(0.31)
            .FooterMargin = Application.InchesToPoints(0.31)
            .PrintGridlines = True
            .Orientation = xlPortrait
            .PaperSize = xlPaperA4
            .Zoom = 90 ' Hier stel je de zoom in voor het blad
            
        End With

        ' Kolombreedtes instellen op het blad
        ws.Columns("A").ColumnWidth = 5.71
        ws.Columns("B").ColumnWidth = 6.57
        ws.Columns("C").ColumnWidth = 14
        ws.Columns("D").ColumnWidth = 0.5
        ws.Columns("E").ColumnWidth = 10.29
        ws.Columns("F").ColumnWidth = 11
        ws.Columns("G:I").ColumnWidth = 10
        ws.Columns("J").ColumnWidth = 9.14
        ws.Columns("K").ColumnWidth = 8
        ws.Columns("L").ColumnWidth = 9

    MsgBox "Klaar! De opmaak van dit blad is aangepast"
    End Sub

.

 

[Senso]

Ik heb nu onderstaande aangevulde code. Echter de zoom wordt op 100 gezet. De zoom moet op 90 worden ingesteld. Hoe moet het dan wel?

Sub PasOpmaakBladAan()
Dim ws As Worksheet
Set ws = ActiveSheet

                With ws.PageSetup
            .LeftMargin = Application.InchesToPoints(0)
            .RightMargin = Application.InchesToPoints(0)
            .TopMargin = Application.InchesToPoints(0.16)
            .BottomMargin = Application.InchesToPoints(0.16)
            .HeaderMargin = Application.InchesToPoints(0.31)
            .FooterMargin = Application.InchesToPoints(0.31)
            .PrintGridlines = True
            .Orientation = xlPortrait
            .PaperSize = xlPaperA4
            .Zoom = 90 ' Hier stel je de zoom in voor het blad
           
        End With

        ' Kolombreedtes instellen op het blad
        ws.Columns("A").ColumnWidth = 5.71
        ws.Columns("B").ColumnWidth = 6.57
        ws.Columns("C").ColumnWidth = 14
        ws.Columns("D").ColumnWidth = 0.5
        ws.Columns("E").ColumnWidth = 10.29
        ws.Columns("F").ColumnWidth = 11
        ws.Columns("G:I").ColumnWidth = 10
        ws.Columns("J").ColumnWidth = 9.14
        ws.Columns("K").ColumnWidth = 8
        ws.Columns("L").ColumnWidth = 9

    MsgBox "Klaar! De opmaak van dit blad is aangepast"
    End Sub

Bericht automatisch samengevoegd: Vandaag om 12:02

Sub SetZoom90()
    ActiveWindow.Zoom = 90
End Sub

To set print zoom (Page Setup):
vba

ActiveSheet.PageSetup.Zoom = 90

Het lukt mij niet om deze goed in de code te verwerken

 

[Senso]

Edit:
het meeste is gelukt.