Zellverknüpfung aus Strings zusammen setzen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

HI
im Prinzip so:

=Indirekt("'D:\Test\2019\[November_Quelle.xlsx]Tabelle1'!$A$1")

dh du brauchst den Zellbezug, so wie er normalerweise geschrieben wird, als Textstring.
diesen kannst du dir mit den normalen Excelfunktionen und Zellbezügen nach Wunsch Zusammenbasteln, aber das Ergebnis muss halt genauso aussehen wie der normale Zellbezug.
allerdings haben die Kollegen es ja schon erwähnt: in Indirekt kannst du nur Zellbezüge auf bereits geöffnete Dateien erstellen, also maximal so:

=Indirekt("'[November_Quelle.xlsx]Tabelle1'!$A$1")

als Workaround, wenn du eine längere Liste aus solchen Zellbezügen hast, bspw weil sich der Monat im Dateinamen ändert und der Rest gleich bleibt, gibst folgenden Workaround, um sich Schreibarbeit zu sparen und nicht jeden Zellbezug von Hand eingeben zu müssen:
1. erstelle eine Formel, welche die kompltte Formel mit dem externen Bezug als Text erstellt, dh diese Formel muss dann so ein Ergebnis haben "='D:\Test\2019\[November_Quelle.xlsx]Tabelle1'!$A$1"
2. kopiere dann diese Zellen und füge sie an gleicher oder andere Stelle als Wert ein.
in den Zellen sollte jetzt der nicht berechnete Formeltext zu sehen sein.
3. um diesen Text in echte Formeln zu wandeln, markierst du die Zellen und ersetzt mit der Menüfunktion ERSETZEN das "=" durch "=" (also Gleichheitszeichen durch Gleichheitszeichen)
klingt zunächst widersinnig, etwas durch das gleiche zu ersetzen, aber Excel wird dann erneut prüfen, ob die Texte eine Formel sein könnten und wenn ja, versuchen diese zu berechnen
(nach dem kopieren + Inhalte einfügen/Werte funktioniert das noch nicht)
das ganze ist zwar nicht dynamisch, dh wenn sich ein Zellbezug ändert, müsstest du den Vorgang wiederholen, aber es spart dir Schreibarbeit, wenn du mehrere externe Zellbezüge erzeugen willst.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Zellverknüpfung aus Strings zusammen setzen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

42 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellverknüpfung aus Strings zusammen setzen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

42 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread