filteren in combobox

[jansen18]

Wie kan mij svp helpen?
In het bestand heb ik een combobox staan waar op gefilteerd moet worden op de waarden in kolom B8:B300. Maar ik krijg geen unieke gegevens in de combobox. En als ik een gemeente heb gekozen dan wil ik alleen de rijen zijn van de gekozen gemeente. Is dit mogelijk? Bovendien wil ik dan het team zien in C4 van de gemeente.

Als ik niks selecteer dan moeten alle rijen weer zichtbaar zijn. Bij het printen wil ik de combobox niet zien maar alleen de waarde.

 

[Warme bakkertje]

Bekijk bijlage eens of je hier mee verder kan

Mvg

Rudi

 

[snb]

In de module ThisWorkbook:

Private Sub Workbook_Open()
  [BO!B9].CurrentRegion.Columns(2).AdvancedFilter xlFilterCopy, , [BO!AA1], True
  Blad1.ComboBox1.ListFillRange = [BO!AA1].CurrentRegion.Columns(1).Offset(1).Address
End Sub

In de module Blad1:

Private Sub ComboBox1_Change()
    On Error Resume Next
    If ComboBox1.Value = "" Then
        [BO!A9].CurrentRegion.AutoFilter
    Else
        [BO!A9].CurrentRegion.AutoFilter 2, ComboBox1.Value
    End If
End Sub

 

[Warme bakkertje]

Nu met de 'propere' oplossing van snb

Mvg

Rudi

 

[jansen18]

Bedankt iedereen voor de oplossing. Jullie hebben me veel geholpen.

:thumb: