Thema Datum  Von Nutzer Rating
Antwort
05.05.2014 16:33:44 Corina
NotSolved
05.05.2014 17:31:24 Corina
NotSolved
05.05.2014 20:22:15 Gast74950
NotSolved
05.05.2014 21:01:46 Corina
NotSolved
05.05.2014 23:01:14 Gast39624
*****
Solved
06.05.2014 06:29:37 Gast25097
NotSolved
Rot HIlfeschrei
 05.05.2014 23:28:38 Gast40018
NotSolved
06.05.2014 08:34:28 Corina
NotSolved
06.05.2014 09:50:09 Corina
NotSolved

Ansicht des Beitrags:
Von:
Gast40018		 Datum:
05.05.2014 23:28:38		 Views:
781		 Rating:
     
Antwort:
  Ja
Thema:
HIlfeschrei		 
Option Explicit

Sub Test()
  
  Dim v As Variant
  
  With Range("A1").CurrentRegion
    v = Array("Name1", "Name2", "Name3")
'    v = Split("Name1;Name2", ";")
    .AutoFilter Field:=3, Criteria1:=v, Operator:=xlFilterValues
'    .AutoFilter Field:=3 'Reset
  End With
  
End Sub

Über das Worksheet-Objekt kommst du an die bereits gesetzten Filter (s. Worksheet.AutoFilter.Filters) heran und somit auch an die Liste der einzelnen Werte nach denen gefiltert wird (hier im Beispiel Name1, Name2, Name3). Auf dieses Array wendest du ReDim Preserve an und fügst diesem ein weiteres Element für einen neuen Wert hinzu und setzt den AutoFilter damit erneut.

 

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.05.2014 16:33:44 Corina
NotSolved
05.05.2014 17:31:24 Corina
NotSolved
05.05.2014 20:22:15 Gast74950
NotSolved
05.05.2014 21:01:46 Corina
NotSolved
05.05.2014 23:01:14 Gast39624
*****
Solved
06.05.2014 06:29:37 Gast25097
NotSolved
Rot HIlfeschrei
 05.05.2014 23:28:38 Gast40018
NotSolved
06.05.2014 08:34:28 Corina
NotSolved
06.05.2014 09:50:09 Corina
NotSolved