Hallo zusammen,

ich habe 2 Arbeitsmappen mit Werten. Bei Ausführen des Makros möchte ich gerne die Werte aus Mappe 1 auf die Zellwerte in Mappe2 addieren.

Das unten stehende Makro habe ich mir überlegt, welches aber aus einem unerklärlichen Grund nicht funktioniert:

Gibt es hier Ideen, was falsch sein könnte?

Vielen Dank und liebe Grüße

Sub Smiley1_Klicken()

Dim DataArea1 As Range
Set DataArea1 = ThisWorkbook.Worksheets("Mappe1").Range("E5:F7")

Dim DataArea2 As Range
Set DataArea2 = ThisWorkbook.Worksheets("Mappe2").Range("E5:F7")

Dim valuesArray1() As Variant
   valuesArray1 = DataArea1.Value

Dim valuesArray2() As Variant
   valuesArray2 = DataArea2.Value
  
   Dim rowIndex1 As Long
   Dim rowIndex2 As Long
   Dim columnIndex1 As Long
   Dim columnIndex2 As Long
        For rowIndex1 = LBound(valuesArray1, 1) To UBound(valuesArray1, 1)
        For columnIndex1 = LBound(valuesArray1, 2) To UBound(valuesArray1, 2)
        For rowIndex2 = LBound(valuesArray2, 1) To UBound(valuesArray2, 1)
        For columnIndex2 = LBound(valuesArray2, 2) To UBound(valuesArray2, 2)
       
       
valuesArray2(rowIndex2, columnIndex2) = valuesArray1(rowIndex1, columnIndex1) + valuesArray2(rowIndex2, columnIndex2)
  

        Next
        Next
        Next
        Next
       
DataArea1.Value = valuesArray1
DataArea2.Value = valuesArray2

End Sub