Quelldatei = Workbooks 2022
27.04.2022 14:30:38
Heinz
Möchte von einer Arbeitsmappe "Quelldatei = Workbooks("Kritische Fehler_2022.xlsm") in eine anderes Workbooks Werte einfügen.
Das funktioniert heuer noch. ABER der Name von der Quelldatei ändert sich immer mit Jahreswechsel.
Wie könnte man auch in den nächsten Jahre die Werte von der Quelldatei kopieren.
ZB. Workbooks("Kritische Fehler_..........xlsm")
Es wird jedes Jahr die Jahreszahl bei der Quelldatei geändert.
Danke
Sg, Heinz
Sub Artikel_kopieren()
Dim Quelldatei As Workbook
Dim Zieldatei As Workbook
On Error Resume Next
Set Quelldatei = Workbooks("Kritische Fehler_2022.xlsm")
On Error GoTo 0
If Quelldatei Is Nothing Then GoTo Fehler
Set Zieldatei = ThisWorkbook 'die Datei mit dem Code oder '= Workbooks("Vorlage_Wochenumbau.xlsm")
Zieldatei.Activate
Zieldatei.Sheets("Artikeln1").Visible = True ' Einblenden
Quelldatei.Sheets("Kritische Fehler_2022.xlsm").Range("A:A").Copy
Zieldatei.Sheets("Artikeln1").Range("A:A").PasteSpecial xlPasteValues
Application.CutCopyMode = False ' Zwischenablage leeren
Quelldatei.Sheets("Kritische Fehler_2022.xlsm").Range("C:D").Copy
Zieldatei.Sheets("Artikeln1").Range("C:D").PasteSpecial xlPasteValues
Application.CutCopyMode = False ' Zwischenablage leeren
Set Quelldatei = Nothing: Set Zieldatei = Nothing
Exit Sub
Fehler:
MsgBox "Excel Datei Kritische Fehler_2022 öffnen"
End Sub