• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

With .. End With

Status
Niet open voor verdere reacties.
J

jansm

Gebruiker
Lid geworden
2 apr 2014
Berichten
421
Beste mensen,
kan onderstaande (2x With.... End With) ook in 1 keer?

Code: 
ThisWorkbook.Sheets("GEBOUWEN").Activate
With Sheets("GEBOUWEN")
        .Cells.Font.Name = "Calibri"
        .Cells.Font.Size = 8
        .Columns.AutoFit
        .Cells.HorizontalAlignment = xlCenter
            With ActiveWindow
                .SplitColumn = 0
                .SplitRow = 1
            End With
        ActiveWindow.FreezePanes = True
End With
ThisWorkbook.Sheets("HUIZEN").Activate
With Sheets("HUIZEN")
        .Cells.Font.Name = "Calibri"
        .Cells.Font.Size = 8
        .Columns.AutoFit
        .Cells.HorizontalAlignment = xlCenter
            With ActiveWindow
                .SplitColumn = 0
                .SplitRow = 1
            End With
        ActiveWindow.FreezePanes = True
End With
 
Nee. je kan wel deze regels weg laten:
ThisWorkbook.Sheets("GEBOUWEN").Activate
ThisWorkbook.Sheets("HUIZEN").Activate

Daar is in dit geval nu net het With statement voor.
Ik weet zo niet of FreezePanes dan nog goed gaat.
Dat hoeft in ieder geval niet binnen het With statement te staan.
 
Laatst bewerkt:
Je kan het ook in een for each gooien, zodat de code 2 keer loopt.
De twee gedeelten zijn immers identiek.
 
Je hebt helemaal gelijk. Kan ik met een gerust hart nog een Brugse Zot open trekken ;)
 
Dat merk ken ik niet @edmoor (hier niet te verkrijgen).
Het zal je vast net zo lekker smaken als mijn Hertog Jan. (proost :thumb:).
 
Met Hertog Jan is ook niks mis. Wat dat betreft heb ik een prima Karakter :p
 
Zo dus:
Code: 
Sub tsh()
    Dim Sh
    
    For Each Sh In ThisWorkbook.Sheets(Array("GEBOUWEN", "HUIZEN"))
        Sh.Cells.Font.Name = "Calibri"
        Sh.Cells.Font.Size = 8
        Sh.Columns.AutoFit
        Sh.Cells.HorizontalAlignment = xlCenter
        Application.Goto Sh.Range("A2")
        ActiveWindow.FreezePanes = True
    Next
End Sub
 
Dank mensen. Neem er ook één van mij. Ik neem er zelf ook nog één, misschien nog wel twee!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan