Hallo zusammen,
ich habe bereits einen Spezialfilter eingesetzt um Tabellen zu filtern. Und zwar wie folgt:
Stunden Maschine Zeit
3 A 10:00
4 A 10:00
3 B 06:00
Ergebnis:
7 A 10:00
3 B 06:00
Nun möchte ich wieder doppelte Einträge beseitigen, aber diesmal nicht die Zeiten davor addieren. Wie kann ich meinen bisherigen Code ändern?
Set oWsQ = Worksheets(strKW)
Set oWsZ = Worksheets("FST")
oWsQ.Range(oWsQ.Cells(4, 8), oWsQ.Cells(Rows.Count, 9)).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=oWsZ.Cells(2, 6), _
Unique:=True
With oWsZ.Range(oWsZ.Cells(2, 6), oWsZ.Cells(Rows.Count, 6).End(xlUp)).Offset(0, -1)
.FormulaR1C1 = "=SUMIF(" & oWsQ.Name & "!C[3],RC[1]," & oWsQ.Name & "!C[2])"
.Value = .Value
.Cells(1).Value = oWsQ.Cells(4, 3).Value
End With
Danke schonmal für eure Hilfe :)