|
Hallo zusammen,
ich bräuchte mal euren Rat. Für meine Liste benötige ich ein Makro, was spzielle Kunden rausfiltert. Ich hab hier ein Makro was aber leider nicht richtig funktioniert.
Sub Filter_EB_Kunden()
'
'** Dimensionierung der Variablen
Dim rngFilterRange As Range
Dim lngCriteriaCount As Long
Dim arrCriteria() As String
'** Anzahl der Kriterien festlegen
lngCriteriaCount = 3
'** Variable neu dimensionieren
ReDim arrCriteria(0 To lngCriteriaCount - 1)
'** Filterkriterien festlegen
arrCriteria(0) = "KSB"
arrCriteria(1) = "BTC"
arrCriteria(2) = "Continental"
'** Objektvariable setzen
Set rngFilterRange = ActiveSheet.Range("K6:K1500")
'** Autofilter setzen/ausführen
rngFilterRange.AutoFilter Field:=5, _
Criteria1:=arrCriteria(), _
Operator:=xlFilterValues
'** Objektvariable zurücksetzen
Set rngFilterRange = Nothing
End Sub
|