AW: Und wie sähe denn die konkrete Formel aus?
24.11.2019 22:44:48
Piet
Hallo Norbert
hallo Sibylle
"eine holde Maid in Not, zwängt sich brennend durch ein Nadelöhr, was für ein Malleur"
würde Heinz Ehrhardt jetzt sagen. Und als Schelm es wagen, dir eine Lösung zu offenbaren!
Ritter Fipps, in seiner Rüstung, kannte ncoh kein VBA, - DESHALB fiel er von der Brüstung!
Und Piet sein inneres Kind sprach, du bist doch der "Helle", so Eile mit einem Code zur Stelle!
Hier bin ich, gib in Zelle B1 bis F1 alles korrekt ein, starte das Makro und schau was passiert!
Und wie von Zauberhand erscheint sogleich, die passende Formel in Zelle B4,oder wo du willst ...
Denn setzt du den Cursor in eine andere Zelle, ist die Formel auch dort gleich zur Stelle.
Wenn man im Befehl Range(B4) eine andere Adresse angibt, oder ganz löscht! (Cursorstellung)
Die Datei muss dafür NICHT geöffnet sein! Die Formel kann etwas geandert einen ganzen Bereich kopieren.
Ich hoffe der Code hift euch, und meine Musestunde für den Schelm Heinz Ehrhardt hat euch gefallen.
mfg Piet
Option Explicit '24.11.2019 Piet für Herber Forum
'='D:\Test\2019\[November_Quelle.xlsx]Tabelle1'!$A$1
'dieses Makro erstellt die obige Formel per VBA
Sub Formel_mitVBA_erstellen()
Dim Pfad, Jahr, Monat, Datei, Adr1
Pfad = Trim(Range("B1"))
Jahr = Trim(Range("C1"))
Monat = Trim(Range("D1"))
Datei = Trim(Range("E1"))
Adr1 = Trim(Range("F1"))
'Prüfen ob Pfad und Fatei Endungen aufweist?
If Right(Pfad, 1) "\" Then Pfad = Pfad & "\"
If Right(Datei, 1) "'" Then Datei = Datei & "'"
Range("B4").Select '** ggf. Range(B4) aendern oder löschen (Cursor Position)
Selection.Formula = "='" & Pfad & Jahr & "\[" & Monat & Datei & "!" & Adr1
End Sub