rapporten uit een tabel halen

[blueberry013]

Hallo!

Kan iemand mij helpen...

Ik heb een tabel met 150 kolommen. bedoeling is dat als ik een macro laat lopen (waarin een rapport op een nieuw werkblad gegenereerd wordt) van elke zichtbare rij (deze worden gefilterd op week) gegevens uit bv. kolom 1 - 3 - 8 - 17... in dit rapport op welbepaalde plaatsen gezet worden.
Daarna zou de tweede zichtbare rij aan de beurt zijn, etc.

hoe doe ik dit?...

alvast bedankt!

 

[BjorntobeWild]

Ik zou het zo doen.

Sub kolombreedte()
Dim rCol As Range

For Each rCol In Range("A1:Z1") 'Bereik bepalen
    If rCol.Width <> 0 Then
        'Hier je code
    End If
Next Col
End Sub