ich hab mal wieder ein kleines Problem und komm nicht weiter... hoffe ihr könnt mir helfen
ich hab Tabellenblätter die alle die gleiche Struktur aufweisen und will die jetzt in der gleichen Struktur mittels vba in ein neues Tabellenblatt (ausgabe) zusammenfassen - sprich die einzelnen werte der gleichen zellen sollen zusammengefasst werden
Bsp.: Test1 & Test2 haben den gleichen Aufbau, nun sollen die Zellen D5 beider Blätter addiert werden und in D5 der Ausgabe soll die Summe eingespielt werden
Hier mein Ansatz Sub Aktualisieren() Dim wks As Variant Dim test As Variant Dim Wert(1 To 40, 1 To 10) As Long Set wb = ThisWorkbook test = Array("Test1", "Test2") For zeile = 5 To 10 For spalte = 4 To 6 For Each wks In test With wb.Worksheets(wks) Wert(zeile, spalte) = Wert(zeile, spalte) + .Cells(zeile, spalte).Value End With wb.Worksheets("Ausgabe").Cells(zeile, spalte).Value = Wert(zeile, spalte) Next wks Next spalte Next zeile End Sub
ich denke mein Fehler liegt in der Berechnung (wert = wert + ...) oder in der Verknüpfung der Schleifen zeile und spalte?
Hoffe ihr könnt mir helfen und das ich wieder etwas dazulernen kann :)
Vielen Dank
Matthias