AW: Vba Teilergebnis wenn mehr als ein Wert gleich
02.06.2015 07:04:29
Crizz
Hi Sepp,
ich habe das jetzt aufbauend auf deinem Code so hinbekommen und es funktioniert
With ActiveSheet
.Columns(11).NumberFormat = "#,##0.00 $"
.Range("A3").Subtotal GroupBy:=2, _
Function:=xlSum, _
TotalList:=Array(11), _
Replace:=True, _
PageBreaks:=False, _
SummaryBelowData:=True
For Each rng In .Columns(11).SpecialCells(xlCellTypeFormulas)
If Evaluate("=SUMPRODUCT((B:B=B" & rng.Row - 1 & ")*(F:F=F" & rng.Row - 1 & "))") = 1 Then
Range(Cells(rng.Row - 1, rng.Column), Cells(rng.Row - 1, rng.Column)).Rows.Ungroup
'die Code Zeile löst das Problem
rng.EntireRow.Delete
End If
Next
End With
Danke für deine Hilfe!
Viele Grüße Chris