VBA, sum statt count
30.04.2023 21:44:00
Fred
Hallo Excel Experten,
nun wird es wohl wieder etwas peinlich,- einer meiner Aussetzer :-(
Im unteren Makro werden u.a. die Werte gezählt, welche über 2,7 liegen.
Ich will das Makro aber nun dahin ändern, das nicht gezählt (count) sondern entsprechende Zellinhalte summiert (sum) werden.
Sub summeAusfaelle()
Dim Listen_10Sheet As Worksheet
Dim Import_5Sheet As Worksheet
Dim Listen_10Range As Range
Dim Import_5Range As Range
Dim Listen_10Cell As Range
Dim Import_5Cell As Range
Dim count As Integer
Dim count2 As Integer
Set Listen_10Sheet = ThisWorkbook.Worksheets("Listen_10")
Set Import_5Sheet = ThisWorkbook.Worksheets("Import_5")
Set Listen_10Range = Listen_10Sheet.Range("A:A").SpecialCells(xlCellTypeConstants)
Set Import_5Range = Import_5Sheet.Range("L:L").SpecialCells(xlCellTypeConstants)
For Each Listen_10Cell In Listen_10Range
count = 0
count2 = 0
For Each Import_5Cell In Import_5Range
If Import_5Cell = Listen_10Cell Or Import_5Cell.Offset(0, 1) = Listen_10Cell Then
count = count + 1
If Import_5Cell.Offset(0, 65) > 2.7 Then count2 = count2 + 1
End If
If count = 20 Then Listen_10Cell.Offset(0, 30).Value = count2: Exit For
Next Import_5Cell
Next Listen_10Cell
End Sub
Bitte um Hilfe (bin heute echt schlecht drauf)
Gruss
Fred