Hallo Newbi,
hier ein wenig Code zu Deinem Problem
Public Sub Summieren()
Dim dest As Worksheet
Dim cl1 As Range
Dim cl2 As Range
Dim cl3 As Range
Dim x_Werte As Range
Dim y_Werte As Range
Dim z_Werte As Range
Dim destrg As Range
Dim Summe As Double
Set dest = Worksheets("Tabelle3")
dest.Cells.Clear
Set destrg = dest.Cells(1, 1)
Set x_Werte = Range(Cells(2, 2), Cells(2, Range("A2").End(xlToRight).Column))
Set y_Werte = Range(Cells(3, 2), Cells(3, Range("A3").End(xlToRight).Column))
Set z_Werte = Range(Cells(4, 2), Cells(4, Range("A4").End(xlToRight).Column))
For Each cl1 In x_Werte
For Each cl2 In y_Werte
For Each cl3 In z_Werte
Summe = cl1.Value + cl2.Value + cl3.Value
If Summe < 1 Then
rgarr = Array(cl1, cl2, cl3)
For idx = LBound(rgarr) To UBound(rgarr)
destrg.Offset(idx, 0).Value = Cells(1, rgarr(idx).Column).Value
destrg.Offset(idx, 1).Value = Cells(rgarr(idx).Row, 1)
destrg.Offset(idx, 2).Value = rgarr(idx).Value
Next idx
destrg.Offset(3, 0).Value = Summe
Set destrg = destrg.Offset(5, 0)
End If
Next
Next
Next
End Sub
Grüße Lutz
|