|
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
|