Artkikel aus Verschiedenen Bereichen Filtern?

[slowinvest]

Danke nochmal für die Ideen und Hilfe.

ich probiere da noch dran herrum. so ganz klappt es noch nicht. Aufgrund der Schicht ging es die tage auch nicht weiter. Aber nun ist wieder etwas Zeit.

[Jockel]

Hallo, "so ganz klappt es noch nicht" passt für mich zur Anfrage... Aber ich verabschiede mich hier aus dem thread. Ich hab's bislang nicht verstanden und kann dadurch auch nix Hilfreiches beisteuern... Viel Erfolg...

[Kuwer]

Hallo,

das wäre mein Vorschlag (per VBA):

Sub AAA()

 Dim i As Long, j As Long, k As Long

 Dim VarQ As Variant, varZ As Variant

 VarQ = Cells(1).CurrentRegion.Value

 ReDim varZ(1 To UBound(VarQ, 1), 1 To UBound(VarQ, 2))

 varZ(1, 1) = VarQ(1, 1)

 varZ(1, 2) = VarQ(1, 2)

 k = 1

 For i = 2 To UBound(VarQ, 1)

   For j = 2 To k

     If varZ(j, 1) = VarQ(i, 1) Then

       k = k + 1

       varZ(k, 1) = VarQ(i, 1)

       varZ(k, 2) = VarQ(i, 2)

       Exit For

     End If

   Next j

   If j > k Then

     For j = 2 To UBound(VarQ, 1)

       If VarQ(j, 1) = VarQ(i, 1) Then

         If VarQ(j, 2) = "FB" Or VarQ(j, 2) = "XL" Then

           Exit For

         End If

       End If

     Next j

     If j > UBound(VarQ, 1) Then

       k = k + 1

       varZ(k, 1) = VarQ(i, 1)

       varZ(k, 2) = VarQ(i, 2)

     End If

   End If

 Next i

 Cells(1, 4).Resize(UBound(varZ, 1), UBound(varZ, 2)).Value = varZ

End Sub

Die gefilterte Liste wird hier erst einmal in die Spalten D:E geschrieben.
Du solltest aber etwas Geduld haben.

Gruß Uwe