VBA-Code für spezialfilter ändern
Wolfango
OttoH hatte mir im alten Jahr noch ein Makro zur Verfügung gestellt, welches der Lösung eines Problems schon recht nahe kommt (Filtern über zwei Spalten; ein Filterkriterium mit ODER-Verknüpfung)
alter Thread:
https://www.herber.de/forum/archiv/1192to1196/t1193365.htm#1193400
(An dieser Stelle DANKE! an OttoH ich hatte es im alten Jahr nicht mehr geschafft zu antworten war anschließend ein paar Tage außer Landes widme mich nun wieder dem Problem und kann auf den alten Thread nicht mehr antworten vermutlich weil archiviert?)
Das Beispiel von OttoH befindet befindet sich hier:
https://www.herber.de/bbs/user/72863.xls
Das Code dazu sieht wie folgt aus:
Sub Filtern_nach_Personen()
Dim Kriterium As String
Kriterium = InputBox("Filtern nach (enthält)", "Filtereingabe")
[M2] = Kriterium
[N3] = Kriterium
Range("A1:F6").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("I1:N3"), _
CopyToRange:=Range("I5:N5"), Unique:=False
End Sub
Meine Frage:
Wie kann ich diesen Code so abändern, dass die Liste an gleicher Stelle gefiltert wird (was ja mit dem Spezielfilter grundsätzlich möglich ist (...und nicht an eine andere Stelle kopiert wird)?
Besten Dank!
Gruß,
Wo.