Query Excel 2003 meerdere tabbladen

[Garcia]

Ik heb 1 excel sheet, daarin zitten 3 verschillende tabbladen. Op deze tabbladen staat de volgende informatie
kolom 1: IP range
kolom 2: Gebouwnummer
kolom 3: Omschrijving

Wat ik graag wil, is op een 4de tabblad een soort "invul cel" maken. Als ik in die cel een Gebouwnummer invul, dat ik alle IP ranges uit alle tabbladen die bij dat gebouw horen als resultaat terug krijg. Via een soort van query dus.

Het staat er misschien wat cryptisch, maar ik hoop dat jullie begrijpen wat ik bedoel.

[pedorus]

Iets als het autofilter?

[ Voor 39% gewijzigd door pedorus op 03-08-2009 23:22 ]

[Garcia]

Ja eigenlijk wel, maar dan over meerdere tabbladen en het resultaat moet in één oogopslag te zien zijn.

[onkl]

Wat je misschien kan doen is een blad maken waarin alle informatie onder elkaar staat (dmv formules opgehaald uit de andere bladen) en daarop een geavanceerd filter loslaten.
Voorbeeld:

formules:

Macro voor autofilter in code van blad "Lijst":

Visual Basic:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, ThisWorkbook.Names("Filterrange").RefersToRange) Is Nothing) Then
    'check of de formules ver genoeg zijn doorgetrokken.
    If Me.Cells(ThisWorkbook.Names("Laatste_rij").RefersToRange.Value, 1).Value = "" Then
        MsgBox "De broninformatie bevat " & _
            ThisWorkbook.Names("Laatste_rij").RefersToRange.Value - ThisWorkbook.Names("Eerste_rij").RefersToRange.Value + 1 & _
            " rijen. De formules in het rapport zijn niet ver genoeg doorgetrokken naar beneden. Sleep de formules in het rapport, in kolom A t/m G verder naar beneden."
    End If
    Me.Range(ThisWorkbook.Names("rapportadres").RefersToRange.Value).AutoFilter
    
    For i = 1 To ThisWorkbook.Names("Filterrange").RefersToRange.Columns.Count
        If ThisWorkbook.Names("Filterrange").RefersToRange.Cells(1, i).Value = "" Then
            Me.Range(ThisWorkbook.Names("rapportadres").RefersToRange.Value).AutoFilter Field:=i, _
            VisibleDropDown:=False
        Else
            Me.Range(ThisWorkbook.Names("rapportadres").RefersToRange.Value).AutoFilter Field:=i, _
                Criteria1:=ThisWorkbook.Names("Filterrange").RefersToRange.Cells(1, i).Value, _
                VisibleDropDown:=False
        End If
    Next i
End If
End Sub

Verberg kolom A-D en leef je uit.
(Dm even als je bestandje per mail wilt.)

[ Voor 83% gewijzigd door onkl op 04-08-2009 12:34 . Reden: Het is nu al vrijdag op mijn werk. ]

[Garcia]

@onkl: Dank je wel. Ziet er ingewikkeld uit, maar tis ook nooit gezegd dat het simpel was . Ik ga eens kijken of ik wat kan stoeien.

[onkl]

Bestandje

[Garcia]

Thx.