Filter über mehrere Spalten

Tim · 2024-06-25T08:19:20+00:00

Moin Moin, ich bin grade dabei eine Excel Tabelle zu erstellen wo ich in den ersten 4 Spalten Artikelgruppen eingeben will. In der 5 Spalte soll dann der jeweilige anbeiter zu der Artikelgruppe stehen. Nun möchte ich wenn ich z.B. nach einer Betimmten Artikelgruppe in den ertsen 4 Spalten Filter die jeweiligen verschiedenen Anbieter angezeigt bekommen. Quasi wie bei der normalen Filterfunktion, nur das ich die ersten 4 Spalten gleichzeitig Filtern möchte.

Wollte hier was mit Anhängen, aber ich habe den Bogen noch nicht so raus wie das hier funktioniert :)
Wenn ich auf Beispieldatei hochladen gehe, wird das direkt auf den Server geladen.

Ich Versuche es mal so darzustellen:

Spalte 1_____Spalte 2_______Spalte 3________Spalte 4________Spalte 5
________________ Lieferant für:_______________________________Firma
Ketten______Kugellager______________________________________Firma A
Ketten______Dichtungen_____________________________________Firma B
Ketten______Dichtungen_____Normteile_____________________Firma C

Ich möchte jetzt in den Spalen 1-4 gleichzeitig z.b. nach "Dichtungen" filten und mir dann nur Firma B und C anzeigen lassen.
Mit der normalen Filterfunktion würde das ja dann nur in einer Spalte funktionieren.

Danke dir, ist genau das was ich gesucht habe.
Wenn ich nun aber anstatt im Feld G1 das Suchfeld in J" haben möchte, muss ich nicht dann nur im Makro
alles auf J ansatt G und von 7 auf 10 ändern?
Quasi so wie unten stehend:
Sry bin VBA leider nicht wirklich gut :)

Dim lz1 As Long, Zahl As Long

Dim rFind As Range, Adr1 As String





Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address > "$J$1" Then Exit Sub

    Target.Select

    lz1 = ActiveSheet.UsedRange.Rows.Count

    Range("J2:J" & lz1).ClearContents



    'Autofilter zurücksetzen

    If Target.Value = "" Then

       Range("A2:J" & lz1).AutoFilter Field:=10

       Exit Sub

    End If

    

    'Suchwert in vier Spalten suchen

    Set rFind = Columns("A:D").Find(What:=[g1], After:=[a1], LookIn:=xlFormulas, _

        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)

    

    If Not rFind Is Nothing Then

       Adr1 = rFind.Address

       Do

          Cells(rFind.Row, 10) = [g1]

          Set rFind = Columns("A:D").FindNext(rFind)

       Loop Until rFind.Address = Adr1

       

       Range("A2:J" & lz1).AutoFilter Field:=7, Criteria1:=[g1]

       Zahl = Range("J2:J" & lz1).SpecialCells(xlCellTypeVisible).Count

       

       If Zahl = 1 Then

          Range("A2:J" & lz1).AutoFilter Field:=10

          MsgBox "Kein Eintrag gefunden", vbInformation

       End If

    End If

End Sub

Forumthread: Filter über mehrere Spalten

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Filter über mehrere Spalten

Forumthread: Filter über mehrere Spalten

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread