Verborgen tabbladen niet opnemen in code

[danny147]

Beste,

Hoe kan ik ervoor zorgen dat er geen gegevens opgehaald worden van tabbladen die verborgen zijn ?
Volgende code doet het goed maar geeft ook de info weer die op de verborgen tabbladen staat.

Sub Overzicht()
Dim ws As Worksheet

    Sheets(Array("Langlopende Orders", "Systeem", "Verlofkalender", "LinkList", "TelList", "Output")).Select
    ActiveWindow.SelectedSheets.Visible = False
    
    Set ws = Sheets.Add(After:=Sheets(Sheets.Count))

    For Each ws In Worksheets
        If ws.Index < Worksheets.Count Then
            LR = Worksheets(Worksheets.Count).Range("c65536").End(xlUp).Row
            ws.Range("A21:V300").Copy Destination:=Worksheets(Worksheets.Count).Range("A" & LR + 1)
        End If
    Next
    
End Sub

 

[edmoor]

Zo denk ik:

Sub Overzicht()
    Dim ws As Worksheet

    Sheets(Array("Langlopende Orders", "Systeem", "Verlofkalender", "LinkList", "TelList", "Output")).Select
    ActiveWindow.SelectedSheets.Visible = False
    
    Set ws = Sheets.Add(After:=Sheets(Sheets.Count))

    For Each ws In Worksheets
        If ws.Index < Worksheets.Count [COLOR="#FF0000"]And ws.Visible[/COLOR] Then
            LR = Worksheets(Worksheets.Count).Range("C65536").End(xlUp).Row
            ws.Range("A21:V300").Copy Destination:=Worksheets(Worksheets.Count).Range("A" & LR + 1)
        End If
    Next
End Sub

 

[danny147]

Beste Edmoor,

Thanks

Waren alle topic's maar zo simpel he