AW: unklar
28.10.2017 16:03:40
Thomas
Hi,
ich konnte schon ganz gut mit deinem Code arbeiten,
allerdings habe ich noch ein paar schwierigkeiten.
Wie kann ich eine Spalte auf einen Eingabe wert von "true" oder "false" filtern lassen?
Kann man die Filter auch irgendwie dynamischer setzen?
Sub Test2()
Ar = Sheets("Daten").Cells(1).CurrentRegion
Dim lngAdressZeile As Long
Dim k As Range
Dim strText As String
With Tabelle1.Cells(1).CurrentRegion
For i = 2 To UBound(Ar)
Set k = .Rows("1:1").Find(What:=Ar(i, 1), LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If Not k Is Nothing Then
lngAdressZeile = k.Column
Else
MsgBox Ar(i, 1) & " ist nicht vorhanden, bitte exakte Benennung eingeben!"
End If
If Ar(i, 5) = "Ja" Then
Debug.Print k.Column, Ar(i, 4), Ar(i, 3)
If Ar(i, 4) = "*" Then .Autofilter Field:=k.Column, Criteria1:=Ar(i, 3) & Ar(i, 4), _
Operator:=xlAnd
If Ar(i, 4) = "XX" Then .Autofilter Field:=k.Column, Criteria1:="=*" & Ar(i, 3) & "*" _
If Ar(i, 4) = "" Then .Autofilter Field:=k.Column, Criteria1:="" & Ar(i, 3), _
Operator:=xlAnd
End If
Next i
End With
End Sub
so ist es schon wirklich gut der code, aber leider noch nicht ganz perfekt... und wahrscheinlich ehr schlecht geschrieben :-)
Gruss Thomas