ich bin derzeit am Automatisieren einer Excel Datei. Grundsätzlich gibt es eine Ausgangsdatei A die sämtlichen VBA-Code enthält und Teile der Basisdaten. Diese Daten werden mit Daten einer anderen Ausgangsdatei B in einer Zieldatei Z zusammengeführt.
Mein Problem liegt momentan darin, dass ich in Zieldatei Z zum Schluss noch quasi per Sverweis die Hintergrundfarben ausgewähler Zellen aus Datei B übertragen möchte. Aber genau diese Befehlsfolge bekomme ich leider nicht zusammengestellt.
Folgenden Code habe ich mir zusammengebaut, der aber nicht funktioniert:
Sub BedingteFormatierung()
Dim z As Single
For i = 1 To 5
Workbooks(TargetFileName).Sheets("Warenbereich_" & i).Activate
z = Rows("1:" & Rows("1:1").End(xlDown).Row).Count
For y = 2 To z
On Error Resume Next
WorksheetFunction.VLookup(Range("B" & y).Value, _
Workbooks(SourceFileName).Sheets("VaL DE").Range("E1").EntireColumn, _
1, False).Copy
Workbooks(TargetFileName).Sheets("Warenbereich_" & i). _
Range("K" & y).PasteSpecial xlPasteFormats
Next
Next
End Sub
Ich hoffe ich konnte mein Problem verständlich rüber bringen und ihr habt eine Idee, wie ich mein Problem in den Griff bekomme.Danke auf jeden Fall schon mal im Voraus für jegliche Hilfe.
Grüße Frederick