Thema Datum  Von Nutzer Rating
Antwort
04.05.2017 09:27:11 VBA Anfänger
NotSolved
Blau VBA Autofilter
04.05.2017 18:18:45 BigBen
NotSolved
05.05.2017 09:51:08 Gast44202
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
04.05.2017 18:18:45		 Views:
597		 Rating:
     
Antwort:
  Ja
Thema:
VBA Autofilter

Hallo,

wenn ich dein Anliegen richtig interpretiert habe, willst Du alle Doppelten Einträge aus dem gefilterten Ergebnis entfernen, so dass nur noch jeder Eintrag einmal vorkommt? In diesem Fall kann folgender Code helfen:

Sub TEST()
    Dim wsh As Worksheet
    Dim flt As AutoFilter
    Dim rng As Range
    Dim iPos As Integer
    
    Dim Col As New Collection
    
    Set wsh = ActiveWorkbook.ActiveSheet
    
    Set flt = wsh.AutoFilter
    
    For Each rng In flt.Range.SpecialCells(xlCellTypeVisible).Columns(2).Cells
        If Not ItemExists(Col, rng.value) Then
            Col.Add rng.value
        End If
    Next
    For iPos = 1 To Col.Count
        Debug.Print "x" & iPos & " = " & Col.Item(iPos)
    Next
End Sub

Function ItemExists(Col As Collection, search As String) As Boolean
    Dim iPos As Integer
    For iPos = 1 To Col.Count
        If Col.Item(iPos) = search Then
            ItemExists = True
            Exit For
        End If
    Next
End Function

Nach dem Aufruf von TEST wird im Direktfenster des VBA-Editors die gewünschten Inhalte ausgegeben:

x1 = Haus
x2 = Katze
x3 = Bär

LG, BigBen

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
04.05.2017 09:27:11 VBA Anfänger
NotSolved
Blau VBA Autofilter
04.05.2017 18:18:45 BigBen
NotSolved
05.05.2017 09:51:08 Gast44202
NotSolved