Thema Datum  Von Nutzer Rating
Antwort
03.02.2020 12:22:13 Katrin
NotSolved
Blau Filtern mit VBA
 03.02.2020 14:15:26 Gast21303
NotSolved
03.02.2020 14:30:35 Katrin
NotSolved
03.02.2020 14:33:14 Katrin
NotSolved
03.02.2020 14:51:42 Katrin
NotSolved
03.02.2020 17:03:56 Gast53645
NotSolved

Ansicht des Beitrags:
Von:
Gast21303		 Datum:
03.02.2020 14:15:26		 Views:
546		 Rating:
     
Antwort:
  Ja
Thema:
Filtern mit VBA		 



Option Explicit

Sub FilterA()
    Dim wks As Excel.Worksheet: Set wks = ActiveSheet
    Dim rng As Excel.Range
    Dim lngRow As Long
    
    Dim i As Integer
    'Letzte Zelle ermitteln
    Set wks = ThisWorkbook.Worksheets(1)
    With wks
        lngRow = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
                        .Cells(.Rows.Count, 1).End(xlUp).Row, _
                        .Cells(.Rows.Count, 1).Row)
    End With
    '
    'Filter zurücksetzen
    With wks
        'Filter...
        If .AutoFilterMode Then .AutoFilterMode = False
        'Objektvariable (kann man sich auch einsparen)
        Set rng = .Range(.Cells(1, 1), .Cells(lngRow, 12))
    End With
    'Filter setzen
    rng.AutoFilter Field:=8, Criteria1:=Array("Test*", "Versuch*"), Operator:=xlFilterValues
    '
    Set rng = Nothing: Set wks = Nothing
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
03.02.2020 12:22:13 Katrin
NotSolved
Blau Filtern mit VBA
 03.02.2020 14:15:26 Gast21303
NotSolved
03.02.2020 14:30:35 Katrin
NotSolved
03.02.2020 14:33:14 Katrin
NotSolved
03.02.2020 14:51:42 Katrin
NotSolved
03.02.2020 17:03:56 Gast53645
NotSolved