AW: Sortieren
29.02.2012 13:03:37
Gregor
Hallo zusammen
Nach langem Pröbeln habe ich folgende Lösung gefunden, mit der ich zum Ziel gelange:
Sub Auswahl_ausblenden()
With ActiveSheet.Buttons("Auswahl")
If .Caption = "Filtern" Then
.Caption = "Alle anzeigen"
.Font.ColorIndex = 3
usrAuflisten.Show
Else
.Caption = "Filtern"
.Font.ColorIndex = 32
Call Anzeigen
End If
End With
End Sub
Sub Suchen_und_ausblenden()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim strWort() As Variant, lngZ As Long, Bereich As Range, Rng As Range, IntI As Double
intLastRow = Cells(Rows.Count, 4).End(xlUp).Row
Set Bereich = Range(Cells(2, 2), Cells(intLastRow, 2))
For Each Rng In Bereich
For IntI = 1 To iTemp 'Anzahl Array = 4 (0,1,2,3)
If InStr(Rng, vTemp(IntI)) Then
Rng.Select
Selection.EntireRow.Hidden = True
End If
Next
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Sub Anzeigen()
Cells.EntireRow.Hidden = False
End Sub
Gruss Gregor