Thema Datum  Von Nutzer Rating
Antwort
Rot Autofilter
08.08.2018 14:37:43 Gast95847
Solved
09.08.2018 13:09:36 xlKing
NotSolved
09.08.2018 13:10:33 Gast17843
NotSolved
09.08.2018 14:21:36 Dan
NotSolved
09.08.2018 18:45:06 xlKing
NotSolved
16.08.2018 08:38:27 Gast91937
NotSolved
16.08.2018 23:29:24 xlKing
NotSolved
16.08.2018 23:57:14 xlKing
NotSolved
20.08.2018 10:18:25 Dan
NotSolved
22.08.2018 19:25:59 xlKing
NotSolved
23.08.2018 11:36:42 Gast41542
Solved

Ansicht des Beitrags:
Von:
Gast95847
Datum:
08.08.2018 14:37:43
Views:
691
Rating: Antwort:
 Nein
Thema:
Autofilter

Hi Zusammen,

ich würd gerne mein Makro weitererweitern um einen autofilter. Derzeitig gebe ich die Spalten und Zeilen von Tabelle 1 in Tabelle 2 die für mich relevant sind. 

Jetzt möchte ich den autofilter anwenden (in Tabelle 2) und habe hierfür ein Sub Class angelegt. 

Ich möchte die Spalte "Haarfarbe" filtern. Hierbei sollen die Werte "Blau" nicht angezeigt werden. 

Hat jemand eine Idee?

Gruß

 

Option Explicit
 
Sub autofiltering()
    Dim col As String, cfind As Range
 
    col = "Type"
    With Worksheets("Ergebnis")
        With .Range("A1", .Cells(1, .Columns.Count).End(xlToLeft)) 
            Set cfind = .Rows(1).Find(what:=Haarfarbe, LookIn:=xlValues, lookat:=xlWhole)
            If Not cfind Is Nothing Then 
                .AutoFilter Field:=cfind.Column, Criteria1:="blau" 
            End If
        End With
        .AutoFilterMode = False '<-- show all rows back and remove autofilter buttons
    End With
End Sub
 

 


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
Rot Autofilter
08.08.2018 14:37:43 Gast95847
Solved
09.08.2018 13:09:36 xlKing
NotSolved
09.08.2018 13:10:33 Gast17843
NotSolved
09.08.2018 14:21:36 Dan
NotSolved
09.08.2018 18:45:06 xlKing
NotSolved
16.08.2018 08:38:27 Gast91937
NotSolved
16.08.2018 23:29:24 xlKing
NotSolved
16.08.2018 23:57:14 xlKing
NotSolved
20.08.2018 10:18:25 Dan
NotSolved
22.08.2018 19:25:59 xlKing
NotSolved
23.08.2018 11:36:42 Gast41542
Solved