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