AW: Filtern mit mehreren Einträgen pro Zeile
15.01.2009 23:00:00
Tino
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