ich hoffe ihr könnt mir helfen.
ich würde in der Verknüpfungen (siehe unten code) den String "MJ_17_01_bis_17_12" automatisch auf "MJ_18_01_bis_18_12" ändern bzw. zu ersetzen.
PS: es gibt viele Verknüpfungen ca. 90.
Sub Makro4()
With Workbooks("20180110_Datenbasis.xlsm").Worksheets("Wärme")
.Range("B2:B13").FormulaR1C1 = "='[M_Wärme_erz_MJ_17_01_bis_17_12.XLSX]Daten '!R[11]C[16]"
.Range("C2:C13").FormulaR1C1 = "='[M_Wärme_erz_MJ_17_01_bis_17_12.XLSX]Daten '!R[11]C[16]"
End With
vielen Dank für euere HilfeGrüße
Legacy