Tino oder andere: Dein Code zur FilterungAdvanced
Holger
du hast mir vor geraumer Zeit diesen Code gegeben zur AdvancedFilterung.
Ich habe das ganze reduziert auf den eigentlichen Code und versucht ihn
zu verstehen. Nachdem ich ihn jetzt so anpassen möchte, funktioniert er nicht mehr,
wahrscheinlich weil ich Spalten falsch angegeben oder ihn nicht genau verstehe.
Wozu z.B das Resize, warum werden zwei Zellen als Kriterium angegeben et cetera.
Kannst du mir hier nochmal weiterhelfen?
Sheet "4 Schritt" mit Modul mdl_4, hier klappt es nicht mehr.
https://www.herber.de/bbs/user/72227.xlsm
Im Detail muesste ich wissen, wie ich das immer anpassen muss, also
Spalten, Zeilen und Kriterien.
Sub test4()
Dim strTest As String
strTest = "DE"
Range("A4").Value = strTest
With Application
.ScreenUpdating = False
.EnableEvents = False
If Worksheets("3 Schritt").FilterMode Then Worksheets("3 Schritt").ShowAllData
With Range("B10", Cells(Rows.Count, 2).End(xlUp)).Resize(, 10)
Range("K11").FormulaR1C1 = "=COUNTIF(R4C1,""*""&RC1&""*"")>0"
.AdvancedFilter xlFilterInPlace, Range("K10:K11")
'Range("K12").Clear
End With
.EnableEvents = True
End With
End Sub