AW: VBA-Script nach AutoFilter Aufrufen
04.04.2005 14:35:04
Markus
Hallo Boris,
Danke! Die Idee mit der Zufallszahl-Funktion hat mir schon sehr geholfen.
Ich verwende nun die folgende Funktion um nach dem Auswählen im AutoFilter
immer einen zusätzlichen Wert mit hinzuzufügen.
Gruß
Markus
Private Sub Worksheet_Calculate()
Set w = Worksheets("Tabelle1")
With w.AutoFilter
currentFiltRange = .Range.Address
With .Filters
ReDim filterArray(1 To .Count, 1 To 3)
For f = 1 To .Count
With .Item(f)
If .On Then
filterArray(f, 1) = .Criteria1
If .Operator Then
filterArray(f, 2) = .Operator
filterArray(f, 3) = .Criteria2
End If
End If
End With
Next
End With
End With
If Len(filterArray(5, 1)) > 0 Then
If Len(filterArray(5, 3)) = 0 Then
Selection.AutoFilter field:=5, Criteria1:=filterArray(5, 1), Operator:=xlOr, _
Criteria2:="=ALL"
End If
End If
If Len(filterArray(6, 1)) > 0 Then
If Len(filterArray(6, 3)) = 0 Then
Selection.AutoFilter field:=6, Criteria1:=filterArray(6, 1), Operator:=xlOr, _
Criteria2:="=ALL"
End If
End If
End Sub