Hilfe bei Makro
18.11.2015 14:24:03
Figo
Public Sub SummeWenn()
Dim lZeile As Long, Zeile_L As Long
Dim wks As Worksheet
Set wks = Tabelle4
With wks
For lZeile = 4 To 43
.Cells(lZeile, 6) = (Application.WorksheetFunction.SumIfs(Tabelle5.Range("F:F") _
_
, _
Tabelle5.Range("C:C"), .Cells(lZeile, 3).Value, Tabelle5.Range("E:E"), . _
Cells(lZeile, 5).Value) + Application.WorksheetFunction.SumIfs(Tabelle6.Range("F:F"), _
Tabelle6.Range("C:C"), .Cells(lZeile, 3).Value, Tabelle6.Range("E:E"), . _
Cells(lZeile, 5).Value) + Application.WorksheetFunction.SumIfs(Tabelle7.Range("F:F"), _
Tabelle7.Range("C:C"), .Cells(lZeile, 3).Value, Tabelle7.Range("E:E"), . _
Cells(lZeile, 5).Value) + Application.WorksheetFunction.SumIfs(Tabelle8.Range("F:F"), _
Tabelle8.Range("C:C"), .Cells(lZeile, 3).Value, Tabelle8.Range("E:E"), . _
Cells(lZeile, 5).Value) + Application.WorksheetFunction.SumIfs(Tabelle9.Range("F:F"), _
Tabelle9.Range("C:C"), .Cells(lZeile, 3).Value, Tabelle9.Range("E:E"), . _
Cells(lZeile, 5).Value) + Application.WorksheetFunction.SumIfs(Tabelle10.Range("F:F"), _
Tabelle10.Range("C:C"), .Cells(lZeile, 3).Value, Tabelle10.Range("E:E"), . _
_
Cells(lZeile, 5).Value) + Application.WorksheetFunction.SumIfs(Tabelle11.Range("F:F"), _
Tabelle11.Range("C:C"), .Cells(lZeile, 3).Value, Tabelle11.Range("E:E"), . _
_
Cells(lZeile, 5).Value) + Application.WorksheetFunction.SumIfs(Tabelle12.Range("F:F"), _
Tabelle12.Range("C:C"), .Cells(lZeile, 3).Value, Tabelle12.Range("E:E"), . _
_
Cells(lZeile, 5).Value) + Application.WorksheetFunction.SumIfs(Tabelle13.Range("F:F"), _
Tabelle13.Range("C:C"), .Cells(lZeile, 3).Value, Tabelle13.Range("E:E"), . _
_
Cells(lZeile, 5).Value) + Application.WorksheetFunction.SumIfs(Tabelle14.Range("F:F"), _
Tabelle14.Range("C:C"), .Cells(lZeile, 3).Value, Tabelle14.Range("E:E"), . _
_
Cells(lZeile, 5).Value) + Application.WorksheetFunction.SumIfs(Tabelle15.Range("F:F"), _
Tabelle15.Range("C:C"), .Cells(lZeile, 3).Value, Tabelle15.Range("E:E"), . _
_
Cells(lZeile, 5).Value) + Application.WorksheetFunction.SumIfs(Tabelle16.Range("F:F"), _
Tabelle16.Range("C:C"), .Cells(lZeile, 3).Value, Tabelle16.Range("E:E"), . _
_
Cells(lZeile, 5).Value))
Next lZeile
End With
End Sub
Sprich: Von Zeile 4 bis 43; dann 45 "Freizeilen"; dann soll das Makro Zeile 89 bis 128 berechnen; dann wieder 45 "Freizeilen";... dann immer so weiter bis Zeile 35.700
Natürlich bin ich auch über jeden Vereinfachungstipp dankbar!
Anzeige