Bereik autofilter te klein

[toverkamp]

hallo forumleden,

Ik heb een een code in vba een autofilter aangebracht. Deze filtert alleen de 1e 20 kolommen. Terwijl ik 30 kolommen moet filteren. Ik gebruik de volgende code:

Private Sub overzichtstoringen_Click()
Load overzichtstoringform

overzichtstoringform.overzichtstoringid = idgegevens.gegidnummer

Dim c As Range, filteredRange As Range
    With Sheets("reactietijden").Range("g4").CurrentRegion
        .AutoFilter
        .AutoFilter Field:=6, Criteria1:=idgegevens.gegidnummer.Text

    End With
    
    With Sheets("reactietijden").AutoFilter.Range
        On Error Resume Next
        Set filteredRange = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    End With
    
    For Each c In Intersect(filteredRange, Sheets("reactietijden").Columns(2))
        overzichtstoringform.overzichtstoringlist.AddItem c
    Next
    For Each c In Intersect(filteredRange, Sheets("reactietijden").Columns(5))
        overzichtstoringform.overzichtstoringform1.AddItem c
    Next
    For Each c In Intersect(filteredRange, Sheets("reactietijden").Columns(8))
        overzichtstoringform.overzichtstoringform2.AddItem c
    Next
    For Each c In Intersect(filteredRange, Sheets("reactietijden").Columns(19))
        overzichtstoringform.overzichtstoringform3.AddItem c
    Next
    For Each c In Intersect(filteredRange, Sheets("reactietijden").Columns(23))
        overzichtstoringform.overzichtstoringform4.AddItem c
    Next
    For Each c In Intersect(filteredRange, Sheets("reactietijden").Columns(25))
        overzichtstoringform.overzichtstoringform5.AddItem c
    Next
    For Each c In Intersect(filteredRange, Sheets("reactietijden").Columns(27))
        overzichtstoringform.overzichtstoringform6.AddItem c
    Next
overzichtstoringform.Show
End Sub

Weet iemand misschien hoe dat kan, want aan de bovenstaande code is volgens mij niets fout. Want de code doet het tot de regel van Columns(19))

 

[koosl]

toverkamp,

heb je misschien een lege cel in je kolomkoppen staan?
Als dat zo is dan is een wit karakter al voldoende.

bv in A1 tm K1 staan vetgedrukte woorden. cel L1 is leeg. In cel M1 t/m Z1 staan weer vetgedrukte woorden. Als je dan het autofilter aanzet staan de filters alleen in A1 t/m/ K1

zet je dus in L1 een karakter, en je zet vervolgens de autofilters weer aan, gaat die
wel van A1 t/m Z1


Koosl

 

[toverkamp]

Klopt er zaten lege velden tussen, dus hij werkt nu! Bedankt

Maar ik heb er ook tijden in staan in de cellen :mm deze komen in de listbox als kommagetallen te staan. Hoe kan ik deze eigenschap aanpassen dat ze hier ook in uren komen te staan?