Externen Bezug mit Makro telweise abändern

[jb95]

Hi,

in einer Zelle steht folgender externer Bezug:

=[01_Konzept_KW23.xlsx]Forecast R.1.3'!$AV$6

die Datei "01_Konzept_KW23" wird aber wöchentlich als neue Datei abgespeichert mit dann bspw. KW24.....Damit der Bezug in meiner Datei immer aktuell bleibt, müsste er also auf    =[01_Konzept_KW24.xlsx]Forecast R.1.3'!$AV$6   geändert werden. Da diese und ähnliche Formeln in einigen Zellen stehen, wäre es gut wenn man durch eintragen der gewünschten KW in eine Zelle auch alle externen Bezüge updaten könnte. Da man in den externen Bezug, meines Wissens, jetzt anstatt der KW nicht noch einen internen Bezug auf eine Zelle einbauen kann, muss das wohl mit einem Makro gelöst werden. Habt ihr da eine Idee?   


Vielen Dank

[MisterBurns]

Eine Lösung wäre

Code:

=INDIREKT("'C:\DeinPfad\[01_Konzept_KW"&B1&".xlsx]Forecast R.1.3'!$AV$6")

Wichtig ist aber, dass die Datei geöffnet sein muss...

[Fennek]

Hallo,

Formeln sind Text, der mit "suchem und ersetzen" geändert werden kann. Die Option "in Formeln" ist notwendig.

mfg

[Frogger1986]

Bitte eine Beispieldatei nachbauen! Mit identischen Tabellenblattnamen und Stuktur..

[schauan]

Hallöchen,

eventuell reicht statt einer Beispieldatei auch ein Beispielmakro!

Hier mal ein Ansatz. Die Formel steht in A1, die KW wird in B1 eingegeben. Das Makro kommt in das Modul des Tabellenblattes, in dem die Eingabe erfolgt.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then Cells(1, 1).Formula = "='[01_Konzept_KW" & Cells(1, 2) & ".xlsx]Forecast R.1.3'!$AV$6"
End Sub