|
Hier noch mal der Code.
Sub summwenn()
Dim ersteSpalte As Long
Dim i As Integer
Dim Bereich1 As Range
Dim Bereich7_1 As Range
ersteSpalte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set Bereich1 = Range("E:K")
Set Bereich7_1 = Range("K:K")
For i = 2 To ersteSpalte
Cells(i, 6).NumberFormat = "0.0000%"
Cells(i, 7).NumberFormat = "0.0000%"
Cells(i, 11).NumberFormat = "@"
Cells(i, 11).HorizontalAlignment = xlCenter
Cells(i, 11).VerticalAlignment = xlCenter
Bereich1.Cells(i, 1) = Application.WorksheetFunction.SumIf(Tabelle2.Range("C:C"), Tabelle5.Cells(i, 2), Tabelle2.Range("F:F"))
Bereich1.Cells(i, 2) = Application.WorksheetFunction.SumIf(Tabelle2.Range("C:C"), Tabelle5.Cells(i, 2), Tabelle2.Range("G:G"))
Bereich1.Cells(i, 3) = Application.WorksheetFunction.SumIf(Tabelle2.Range("C:C"), Tabelle5.Cells(i, 2), Tabelle2.Range("I:I"))
Bereich1.Cells(i, 4) = Application.WorksheetFunction.SumIf(Tabelle3.Range("C:C"), Tabelle5.Cells(i, 2), Tabelle3.Range("G:G"))
Bereich1.Cells(i, 5) = Cells(i, 5) + Cells(i, 8)
Bereich1.Cells(i, 6) = (Cells(i, 9) * Cells(i, 6)) / Cells(i, 5)
Bereich7_1.Cells(i, 1) = Application.WorksheetFunction.SumIf(Tabelle4.Range("B:B"), Tabelle5.Cells(i, 2), Tabelle4.Range("J:J"))
If Bereich7_1.Cells(i, 1) > Cells(i, 10) Then
Bereich1.Cells(i, 7) = "-"
ElseIf Bereich7_1.Cells(i, 1) < Cells(i, 10) Then
Bereich1.Cells(i, 7) = "+"
Else
Bereich1.Cells(i, 7) = "0"
End If
Next i
End Sub
|