großes Prob ich ziehe per VBA Daten aus verschiedenen Excelmappen.
Beim kopieren lese ich die Daten in eine Variable ein übertrage diese per copy in die Zielmappe, mache die nächste Excelmappe auf, kopiere wieder und füge in die Zielmappe ein.
Leider vergisst das Makro die Daten aus der ersten mappe nicht und fügt dieser wieder mit ein. Danach ich habe alle Daten 20 fach (habe 20 Quellexcelmappen).
Wie kann ich die Variable nach jedem kopieren leeren? Hier der Code
For Each Zelle In Range("I:BT").SpecialCells(xlCellTypeConstants, 4)
i = i + 1
ReDim Preserve Werte(1 To 5, 1 To i)
Werte(1, i) = Zelle.Offset(0, 1)
Werte(2, i) = Zelle.Offset(0, 2)
Werte(3, i) = Zelle.Offset(0, 3)
Werte(4, i) = Zelle.Offset(0, 4)
Werte(5, i) = Zelle.Offset(0, 7)
Next
Workbooks(Tätigkeit & ".xlsx").Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(UBound(Werte, 2), UBound(Werte, 1)) _
= WorksheetFunction.Transpose(Werte)
End If
Gruß Kai