Filtern mit mehreren Einträgen pro Zeile

Nico · 2009-01-14T19:41:32+00:00

Hallo, ich bin gerade dabei eine Kontaktliste zu erweitern. Pro Zeile ist ein Kontakt eingetragen. Ich will die Kontakte jetzt gruppieren können. Ich möchte einen Kontakt z.B. drei Kathegorien zuordnen ("Freunde", "München", "Schule") Bei einem anderen soll z.B. stehen "Bekannte", "München". Wieder ein anderer nur "Schule". Wie bekomme ich das hin, dass ich über die Filter-Funktion z.B. nur die Einträge mit "München" angezeigt bekomme. Mit der AutoFilter-Funktion bekomme ich es nur so hin, dass ich jedem nur eine Kathegorie zuordnen kann.

Hallo,
hab mir jetz mal bisschen den Spezialfilter beigebracht.
Jetzt hab ich das Ergebnis, das ich eigentlich wollte. (https://www.herber.de/bbs/user/58427.xls)
Es ist aber relativ umständlich jedesmal das Kriterium mit Sternchen in die Zelle einzugeben, den Bereich zu markieren, ins Menü zu gehen, auf Spezialfilter zu gehen und dort den Filter zu aktivieren.
Ich habe leider gar keine Ahnung von VBA (hab sogar gestern erst die Abkürzung googlen müssen).
So, was ich in einigen Forums-Beiträgen gesehen hab, kann man da aber relativ viel damit anstellen, denke ich. Habe mir mal gestern nach Anleitung eine VBA-Suchfunktion mit Schaltfläche gebaut. Natürlich hab ich den Text, den man da eingeben muss kopiert. Selbst würd ich das nie hinkriegen.
Nun meine Frage:
Kann man diese Spezial-Filter-Funktion in so eine VBA-Schaltfläche einbauen, dass man auf die Schaltfläche klickt, dann ein Fensterchen aufgeht, in das man das Kriterium eingibt und dann auf Knopfdruck meine Tabelle gefiltert wird? Und dann noch eine Schaltfläche, mit der man die Liste wieder "zurückstellen" kann?
Ich hoffe mir kann da jemand was einfaches basteln und bedanke mich schon jetzt recht herzlich dafür.
Gruß Nico

Hallo,
gehe mit Alt+F11 in den VBA Editor
links ist eine Explorerleise
gehe dort auf Deine Datei
erstelle ein Modul
in dieses fügst Du diesen Code ein

Sub Filter()
Dim Bereich As Range
Dim SuchWert

Application.ScreenUpdating = False
    SuchWert = InputBox("Suche nach", "Suchwert")
    If SuchWert = CStr(False) Then Exit Sub
    
    Set Bereich = Range("D1", Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, 4))
    Bereich.AutoFilter 1, "=*" & SuchWert & "*", , , False
    
    If ActiveSheet.FilterMode Then
     ActiveSheet.Shapes("Schaltfläche 2").Visible = True
    Else
     ActiveSheet.Shapes("Schaltfläche 2").Visible = False
    End If
Application.ScreenUpdating = True
End Sub

Sub FilterLoeschen()
 If ActiveSheet.FilterMode Then
    Range("D1").AutoFilter
    ActiveSheet.Shapes("Schaltfläche 2").Visible = False
 End If
End Sub

In der Zeile
Set Bereich = Range("D1", Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, 4))
Kannst Du den Bereich anpassen.
D1 und die 4 steht für die Spalte D (D1= Überschrift)
Für die Spalte A wäre
A1 und 1 die richtige Einstellung (A1= Überschrift)
Zeichne Dir zwei Button auf Deine Tabelle und weise diesen die Makros entsprechend zu.
(am einfachsten aus Ansicht- Symbolleiste- Formular)
Den Namen für den Button der Ausgeblendet werden soll musst Du eventuell anpassen.
Den Namen findest Du bei selektiertem Button oben links im weißen Feld in Excel.
Gruß Tino

Filtern mit mehreren Einträgen pro Zeile

Forumthread: Filtern mit mehreren Einträgen pro Zeile

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial