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.
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...
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