Thema Datum  Von Nutzer Rating
Antwort
08.08.2018 14:37:43 Gast95847
Solved
Blau Autofilter
 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:
xlKing		 Datum:
09.08.2018 13:09:36		 Views:
581		 Rating:
     
Antwort:
  Ja
Thema:
Autofilter

Hallo, hier meine Idee,

Sub autofiltering2()

    Dim col As String, cfind As Range
    Dim Wertbereich 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
                Werte = .Range(cfind.Offset(1), Cells(Rows.Count, cfind.Column).End(xlUp))
                Werte = Application.Transpose(Werte)
               
                Do
                  a = Application.Match("Rot", Werte, 0)
                  If Not IsError(a) Then Werte(a) = ""
                Loop Until IsError(a)
                
                .AutoFilter Field:=cfind.Column, Criteria1:=Werte, Operator:=xlFilterValues
            End If
        End With
        Stop
        .AutoFilterMode = False '<-- show all rows back and remove autofilter buttons

    End With

End Sub

Gruß Mr. K.

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
08.08.2018 14:37:43 Gast95847
Solved
Blau Autofilter
 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