Durch Makros geschriebene Formeln aktualisieren

Hallo ich habe ein Problem, ich möchte durch Makros Formeln schreiben die Variabel sind. Sprich in irgendeiner Zelle ist ein Dateipfad, ein Dateiname, ein Monat und eine Monatszahl (die Monatszahl wird mittels SVerweis in die jeweilige Buchstabenvariante der Spalte umgewandelt) eingetragen.
Mein Makro läuft fehlerfrei durch und auch die Verknüpfungen der Formel funktionieren.
Das Problem pro "Aktualisierung/Berechnung" der Formel/Verknüpfung dauert es ein paar Sekunden.
Die Zieltabellen sind teilweise recht gross und nun wird für jede einzelne Verknüpfung die Zieldatei "ausgelesen" und das dauert sehr lang. Es sollen zukünftig an die 800 Werte ausgelesen werden.
Gibt es einen weg das die "Verknüpfungen" alle gleichzeitig ausgelesen werden, sprich die Zieldatei/en sich nur einmal "virtuell" öffnet und alle Information geholt werden statt immer pro Verknüpfung "auf" und "zu"?
Bedanke mich im vorraus für eure Hilfe:
Gruß Thomas
(PS.: Versuche grad die ersten Schritte als Makroschreiber :-S.)
Hier ist meine bisheriges Arbeit:


Sub Plan1()
Tag = Cells(3, 15)
Monat = Cells(6, 8)
Pfad1 = Cells(8, 22)
Datei1 = Cells(15, 22)
Range("AJ8").Select
ActiveCell.Formula = "=" + "'" + Pfad1 + "\" + "[" + Datei1 + "]" + Monat + "'" + "!" + "$ _
C11"
Range("AI8").Select
ActiveCell.Formula = "=" + "'" + Pfad1 + "\" + "[" + Datei1 + "]" + Monat + "'" + "!" + "$ _
B11"
Range("AH8").Select
ActiveCell.Formula = "=" + "'" + Pfad1 + "\" + "[" + Datei1 + "]" + Monat + "'" + "!" + "$ _
B10"
Range("AK8").Select
ActiveCell.Formula = "=" + "'" + Pfad1 + "\" + "[" + Datei1 + "]" + Monat + "'" + "!" + "$"  _
+ Tag + "10"
Range("AL8").Select
ActiveCell.Formula = "=" + "'" + Pfad1 + "\" + "[" + Datei1 + "]" + Monat + "'" + "!" + "$"  _
+ Tag + "11"
Range("AM8").Select
ActiveCell.Formula = "=" + "'" + Pfad1 + "\" + "[" + Datei1 + "]" + Monat + "'" + "!" + "$"  _
+ Tag + "8"
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Plan1() Tag = Cells(3, 15) Monat = Cells(6, 8) Pfad1 = Cells(8, 22) Datei1 = Cells(15, 22) Range("AJ8").Formula = "=" + "'" + Pfad1 + "\" + "[" + Datei1 + "]" + Monat + "'" + "!" + "$ _ C11" Range("AI8").Formula = "=" + "'" + Pfad1 + "\" + "[" + Datei1 + "]" + Monat + "'" + "!" + "$ _ B11" Range("AH8").Formula = "=" + "'" + Pfad1 + "\" + "[" + Datei1 + "]" + Monat + "'" + "!" + "$ _ B10" Range("AK8").Formula = "=" + "'" + Pfad1 + "\" + "[" + Datei1 + "]" + Monat + "'" + "!" + "$ _ " + Tag + "10" Range("AL8").Formula = "=" + "'" + Pfad1 + "\" + "[" + Datei1 + "]" + Monat + "'" + "!" + "$ _ " + Tag + "11" Range("AM8").Formula = "=" + "'" + Pfad1 + "\" + "[" + Datei1 + "]" + Monat + "'" + "!" + "$ _ " + Tag + "8" End Sub

Beliebteste Forumthreads (12 Monate)

Durch Makros geschriebene Formeln aktualisieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread