AW: Problem "SUMME WENN" in VBA-Code
18.05.2008 19:47:00
andre
Hallo,
der Code ist daraus entstanden:
If Range("F18") "" Then
Range("G18") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F18"), Range("G6:G14"))
End If
If Range("F19") "" Then
Range("G19") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F19"), Range("G6:G14"))
End If
If Range("F20") "" Then
Range("G20") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F20"), Range("G6:G14"))
End If
If Range("F21") "" Then
Range("G21") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F21"), Range("G6:G14"))
End If
If Range("F22") "" Then
Range("G22") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F22"), Range("G6:G14"))
End If
If Range("F23") "" Then
Range("G23") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F23"), Range("G6:G14"))
End If
If Range("F24") "" Then
Range("G24") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F24"), Range("G6:G14"))
End If
If Range("F25") "" Then
Range("G25") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F25"), Range("G6:G14"))
End If
If Range("F26") "" Then
Range("G26") = WorksheetFunction.SumIf(Range("F6:F14"), Range("F26"), Range("G6:G14"))
End If
Ich wollte ihn vereinfachen und nebenher etwas dazulernen und habe eine Schleife probiert.
Dabei ist dann mein Problem entstanden.
Gruß Andre