Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verknüpfung unter VBA

Verknüpfung unter VBA
08.12.2003 14:57:52
Jan
Hallo,

ich habe in einem Makro folgende Zeile:

ActiveCell.FormulaR1C1 = "=[Datei.xls]Deckblatt!R4C2"

Nun soll die Zelle aber nicht mit einer festen Datei verknüpft werden, sondern muß sich jedesmal beim Aufruf ändern, da sie mit unterschiedlichen, neu erstellten Dateien verknüpft sind. (Ein Archiv, das auf mehrere Dateien zugreift)
Der Name der neuen Datei könnte sich z.B. in einer Zelle A1 befinden. Aber mit dem foldenden Code komme ich nicht zum Ziel:

ActiveCell.FormulaR1C1 = "=["A1".xls]Deckblatt!R4C2"

Diese Verknüpfung ist notwendig, damit sich die Archivdatei auch bei Änderungen der verknüpften Datei mitverändert.

Hoffe jemand von euch weiß Rat.

mfg
Jan

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verknüpfung unter VBA
08.12.2003 15:00:44
IngoG
Hallo Jan,

versuchs mal mit:

ActiveCell.FormulaR1C1 = "=[" & A1 & ".xls]Deckblatt!R4C2"

Gruß Ingo
AW: Verknüpfung unter VBA
08.12.2003 16:48:56
Jan
Danke für deine Antwort.
Leider hat sie nicht gefruchtet. Der Code wird zwar ausgeführt. Aber die Verknüpfung geht nun zur .xls, obwohl die anvisierte Zelle nicht leer ist.
AW: Verknüpfung unter VBA
08.12.2003 17:39:21
IngoG
HAllo Jan,

sorry my fault ;-)

ActiveCell.FormulaR1C1 = "=[" & range("A1").value & ".xls]Deckblatt!R4C2"

evt mußt Du beim range noch das worksheet usw spezifizieren.

Gruß Ingo
AW: Verknüpfung unter VBA
08.12.2003 18:01:09
Jan
Funktioniert leider immernoch nicht.
Habe es auch schon mit range("A1").select probiert.
Anzeige
AW: Verknüpfung unter VBA
08.12.2003 20:16:42
IngoG
hallo jan,
wo steht den die Zelle a1 (in welchem blatt, in welcher Datei).
wenn dieses Blatt zum ausführungszeitpunkt nicht aktiv ist führt das zu einem Fehler wenn Du nicht die Datei und das Blatt spezifizierst.

also wie oben schon erwähnt:

ActiveCell.FormulaR1C1 = "=[" & ThisWorkbook.Sheets("tabelle1").Range("A1").Value & ".xls]Deckblatt!R4C2"

sollte so funktionieren (bei mir tut es das)

Gruß Ingo
AW: Verknüpfung unter VBA
09.12.2003 09:28:46
Jan
Hallo!
Habe jetzt mal das gesamte Makro eingefügt. Es funktioniert mit keiner von dir genannten Weise.


Sub Makro8()
ChDir "C:\Reklamationen\DATA\Daten"
Workbooks.Open Filename:="C:\Reklamationen\data\daten\Daten.xls", UpdateLinks:=3
ChDir "C:\Reklamationen\"
Workbooks.Open Filename:="C:\Reklamationen\Archiv.xls"
Windows("Reklamationseingabe.xls").Activate
Dim DateiName
DateiName = Range("$h$4") & ".xls"
MsgBox DateiName
ActiveWorkbook.SaveAs Filename:="C:\Reklamationen\Data\" & DateiName
Windows("Daten.xls").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Windows("Archiv.xls").Activate
Rows("4:4").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Range("B4").Select
Windows(DateiName).Activate
Range("H4").Select
Selection.Copy
Windows("Archiv.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("E4").Select
ActiveCell.FormulaR1C1 = "=[" & Range("b4").Value & ".xls]Deckblatt!R4C2"
ActiveWorkbook.Save
ActiveWindow.Close
Range("H4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("h4").Select
End Sub

Anzeige
AW: Verknüpfung unter VBA
08.12.2003 18:07:42
Jan
Übrigens existiert der Name der einzusetzenden Datei auch im Code unter der Bezeichnung DateiName.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige