|
Hallo.
Mich beschäftigt seit einigen Tagen folgendes Thema:
Es geht um Inventar mit Inv-Nr. I
Ich habe Spalte A-E mit verschiedenen Inhalten.
a: Inventarnummer (tc100001, tc100002, usw./mc100003, mc100004usw./dt100005,dt100006, usw und noch weitere die ich nicht brauche)
b: Name Inhaber
c. Location
d: Typ
Ich möchte nach mehr als zwei Kriterien ein VBA (oder andere Möglichkeiten) bauen die mir nach z.B. "TC*" "mc*" und "dt*" filtern.
Dies hier habe ich im Netz gefunden und angepasst, funktioniert jedoch nicht. Die Liste bleibt dann als Ergebnis leer.
Sub HW()
'
' HW Makro
'
' Tastenkombination: Strg+h
'
'Variable dimensionieren
Dim rngFilterRange As Range
Dim lngCriteriaCount As Long
Dim arrCriteria() As String
'Anzahl Kriterien
lngCriteriaCount = 5
'** Variable neu dimensionieren
ReDim arrCriteria(0 To lngCriteriaCount - 1)
'** Filterkriterie festlegen
arrCriteria(0) = "=*DT**"
arrCriteria(1) = "=*mc**"
arrCriteria(2) = "=*tc**"
arrCriteria(3) = "=*p-c-xdw**"
arrCriteria(4) = "=*p-c-xdo**"
' Setzen von Objektvariable
Set rngFilterRange = ActiveSheet.Range("A1:A4100")
'** Autofilter setzen/ausführen
rngFilterRange.AutoFilter Field:=1, _
Criteria1:=arrCriteria(), _
Operator:=xlFilterValues
End Sub
Es kommt dann ein Ergebnis wenn ich die Inhalte statt einem "*" komplett eintrage. Aber die Inventarliste ist über 1000 Zeilen lang.
Danke für eine kurze Hilfe.
Thorsten
LG
|