Filterung mit UF aus Recherche aber
14.02.2008 19:55:19
Walter
Hallo Zusammen,
habe in der Recherche dies gefunden:
Public Begriff As String
Sub Filtern()
'Application.ScreenUpdating = False
''ActiveSheet.Unprotect (getStrPasswort)
''Range("A3:AT3").Select
''Selection.AutoFilter
With Columns("K:K")
.AutoFilter
.AutoFilter Field:=1, Criteria1:=Begriff
'.AutoFilter
End With
Range("K3").Select
Application.ScreenUpdating = True
Unload UserForm5
End Sub
Private Sub ListBox1_Change()
Begriff = ListBox1.Value
Call Filtern
End Sub
Private Sub UserForm_Initialize()
Dim L As Long
For L = 4 To 1000 'Deine Liste steht in A1:A1000
If WorksheetFunction.CountIf(Range(Cells(4, 11), Cells(L, 11)), Cells(L, 11)) = 1 Then _
ListBox1.AddItem Cells(L, 11)
Next
End Sub
das Funktioniert soweit allerdings habe ich die Zeile 2+3 nicht eingeblendet und ich weiß nicht ob
die Datenbank kompl. gefiltert wird, muß bis zur Spalte 46 berücksichtigt werden.
mfg Walter mg