Hallo Zusammen

Ich habe eine dynamische Liste, die jedes Mal leicht anders konstruiert, resp. exportiert wird.
Ich brauche dabei nur eine Spalte mit der Bezeichnung "Produkt". Diese ist manchmal in Spalte A und manchmal in Spalte C.
Es kann aber auch vorkommen, dass die Spalte "Produkt" mehrfach (mit identischem Inhalt) vorkommt.
In diesem Fall müsste der Code erkennen, dass die Bezeichnung Produkt doppelt vorkommt und eine Spalte löschen.

For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
If Cells(1, i) > "Produkt" And Cells(1, i) Then
Columns(i).Delete
End If
Next i

Mit diesem Code löscht es alle überflüssigen Spalten. Die doppelten Spalten werden aber nicht bereinigt.

Vielen Dank für die Unterstützung.