In die Quelldatei werden von Benutzern Texte in den Range A10:B15 geschrieben. Und zwar in Abhängigkeit von ihrer Abteilung. D.h. ich habe identisch strukturierte Sheets mit unterschiedlichen Blattnamen.
Am Ende eines jeden Monats muss ich die Daten in diesem Range manuell in meine Zieldatei rüberkopieren, mit Drittdaten anreichern und für den Folgemonat wieder publizieren. Ich möchte dieses Kopieren künftig gerne per VBA-Makro erledigen. Mein bisheriger Code sieht wie folgt aus und generiert korrekte Zwischenergebnisse:
Sub Einlesen()
Dim ZaehlerBlattQuelle As Integer
Dim I As Integer
Dim z As Integer
Dim myArray() As Variant
Dim ASpalte As String
Dim BSpalte As String
ZaehlerBlattQuelle = ActiveWorkbook.Worksheets.Count
Debug.Print ZaehlerBlattQuelle
For I = 1 To ZaehlerBlattQuelle
Debug.Print ActiveWorkbook.Worksheets(I).Name
myArray = ActiveWorkbook.Worksheets(I).Range("A10:B15").Value
For z = LBound(myArray) To UBound(myArray)
ASpalte = myArray(z, 1)
BSpalte = myArray(z, 2)
Debug.Print ASpalte; BSpalte
Next z
Next I
MsgBox "Daten sind abgearbeitet."
End Sub
Wie bekomme ich die Daten nun aber in meine Zieldatei? Und dort ins korrekte Sheet? Ich stelle mir das so vor, dass ich in einer Variable den Namen/Pfad der Zieldatei habe, dort die Worksheet.Names einlese und - falls der Blattname identisch ist wie in der Quelldatei - die Werte in den Range A10:B15 reinkopiere. Dieser ist in der Zieldatei immer an derselben Stelle wie in der Quelldatei. Der Range bleibt zudem fix und verändert sich über das Jahr hinweg nicht.Könnte mir da jemand helfen? Danke vielmals.