Makro erweitern für weitere Spalten
Henning
ich hatte vor einiger Zeit ein ähnliches Problem und ransi hat mir dabei geholfen.
Wenn einer von euch ransi kennt könnt ihr ihm bitte Bescheid geben.
Denn ich habe folgendes Problem.
ich habe folgende Auswertung: https://www.herber.de/bbs/user/66225.xls
Und das Makro sieht so aus. und funktioniert !!!!! Soll heißen, die Summen werden korrekt angezeigt.
Nur wenn ich vor der Spalte E noch eine Spalte einfüge und das Makro so anpassen wie hier: https://www.herber.de/bbs/user/66527.xls
Dann wird die Summe nicht mehr richtig gebildet. Habe ich einen Denkfehler oder bin ich zu doof.
Schon einmal vorab vielen Dank und ein schönes Wochende.
Option Explicit
Public Sub test()
Dim arr As Variant
Dim L As Long
arr = Range("C15:H10000")
For L = 1 To UBound(arr)
If arr(L, 3) = "" Then
arr(L, 3) = WorksheetFunction.SumIf(Range("C15:C10000"), arr(L, 1) & ".*", Range("E15: _
E10000"))
arr(L, 4) = WorksheetFunction.SumIf(Range("C15:C10000"), arr(L, 1) & ".*", Range("F15: _
F10000"))
arr(L, 5) = WorksheetFunction.SumIf(Range("C15:C10000"), arr(L, 1) & ".*", Range("G15: _
G10000"))
arr(L, 6) = WorksheetFunction.SumIf(Range("C15:C10000"), arr(L, 1) & ".*", Range("H15: _
H10000"))
If arr(L, 3) = 0 Then arr(L, 3) = ""
If arr(L, 4) = 0 Then arr(L, 4) = ""
If arr(L, 5) = 0 Then arr(L, 5) = ""
If arr(L, 6) = 0 Then arr(L, 6) = ""
End If
Next
Range("C15:H10000") = arr
End Sub
Henning
