Auto Filter ohne Anzeige
07.02.2007 21:47:26
Thomas
Ich habe mir einen Code geschrieben, mit dem ich eine Datentabelle unter Anderem mit Namen und Geburtsdaten filtern will.
In dem nachfolgenden Code baue ich mir die Daten zusammen und filtere die Tabelle.
Anschließen habe ich eine leere Tabelle.
Wenn ich den benutzerdefinierten Filter in der Spalte anklicke, stehen meine Grenzen in dem Dialog. Wenn ich auf ok klicke wird der Filter aktiv und ich bekomme meine Daten angezeigt ...
Wer kann mir helfen?
Code:
Sub FilternUx()
Dim Saison, Jahr1, Jahr2 As Variant
Application.ScreenUpdating = False
'Daten festlegen
Saison = "2006/07" 'Sheets("SP").Range("D10").Value
Jahr1 = Mid(Saison, 1, 4)
Jahr1 = CSng(Jahr1)
Jahr1 = Jahr1 - G_U2
If G_U1 = 0 Then
Jahr2 = Jahr1
Else
Jahr2 = Jahr1 + 1
End If
Jahr1 = ">=01.01." & Jahr1 & ""
Jahr2 = "<=31.12." & Jahr2 & ""
'DB filtern
Sheets("Datenbank").Select
G_Password = Sheets("DATA").Range("Q3").Value
Sheets("Datenbank").Protect Password:=G_Password
G_ChangeID1 = 1
Sheets("Datenbank").Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter Field:=27, Criteria1:="männlich"
Selection.AutoFilter Field:=10, Criteria1:=Jahr1, Operator:=xlAnd, Criteria2:=Jahr2
Application.ScreenUpdating = True
DoEvents
Range("A3").Select
Sheets("Datenbank").Protect Password:=G_Password
G_ChangeID1 = 0
End Sub
Sub FilterU18U19Init()
G_U1 = 18
G_U2 = 19
Application.Run "FilternUx"
End Sub