Datenbank - Suche erstellen | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,

da Du eine Tabelle verwendest, brauchst du eigentlich nur die Filter zu verwenden Die Schaltflache auf die rechte Seite der Zellen "SalesMan" und "Item".

3 Anmerkungen:
* deine Tabelle sollte nicht die ganze Blatt umfasssen, sondern an der letzte befüllte Zeile aufhören. Es ist der Sinn einer Tabelle, dass diese sich automatisch ergänzt, wenn unten eine zusätzliche Zeile befüllt wird (Formel und Format werden übernommen).
* Wenn Du schon eine FEnsterfixierung verwendest, dann nicht nur die erste Zeile, sondern die Fixierung nach der 4te Zeile legen. So bleiben die Überschriften der Tagbelle immer sichtbar (und die Filterung damit immer erreichbar).
* Formatiere deine Spalte F als Datum. Entweder sind es amerikanischer Format (Monat, Tag, Jahr) und die Trennzeichen sind "/ ../.." oder europäische Format mit Punkte, aber dann in der Reihenfolge Tag.Monat.Jahr

VG
Yal

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim i& If Not Intersect(Target, Range("B1")) Is Nothing Then With ListObjects(1).DataBodyRange For i = 1 To .Rows.Count If InStr(1, .Cells(i, 1) & "###" & .Cells(i, 2), Target.Cells.Value2, vbTextCompare) > 0 Then .Cells(i, 1).Select Exit For Else .Cells(1, 1).Select End If Next i End With End If End Sub

Den dazugehörigen Code für die TextBox und die ComboBox findest du ebenfalls im Modul des Tabellenblattes.
hier der Code fürs Modul des Tabelleblattes:



Private Sub ComboBox1_DropButtonClick()

    Dim i&

    With Tabelle1.ListObjects(1).HeaderRowRange

        ComboBox1.List = WorksheetFunction.Transpose(.Rows(1).Value)

    End With

End Sub



Private Sub TextBox1_Change()

    Dim i&, arrWerte()

    If ComboBox1.ListIndex > -1 Then

        arr = Split(TextBox1, ",")



        ListObjects("Tbl_Liste").ShowAutoFilterDropDown = True

        ListObjects("Tbl_Liste").Range.AutoFilter Field:=ComboBox1.ListIndex + 1

        If TextBox1 > "" Then

            ListObjects("Tbl_Liste").Range.AutoFilter Field:=ComboBox1.ListIndex + 1, Criteria1:=arr, Operator:= _

            xlFilterValues

        Else

            ListObjects("Tbl_Liste").Range.AutoFilter Field:=ComboBox1.ListIndex + 1

        End If

        ListObjects("Tbl_Liste").ShowAutoFilterDropDown = False

    End If

End Sub

Der Umgang damit ist simpel. Mit der Combobox wählst du die Spalte aus in der gesucht wird. In die Textbox trägst du den/die gewünschten Begriff(e) ein (Trennzeichen ist ein Komma) und die Liste filtert entsprechend den gesuchten Begriffen.

Gruß Uwe

Beliebteste Forumthreads (12 Monate)

Datenbank - Suche erstellen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenbank - Suche erstellen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread