Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Zwei Excel Tabellen miteinander verknüpfen

VBA Zwei Excel Tabellen miteinander verknüpfen
04.09.2014 07:29:53
Max
Guten Morgen *,
folgendes Problem. Ich würde gerne die Zelle A1 aus der Excel-Datei1 mit der Zelle A1 aus der Excel-Datei2 verknüpfen. Folgendes spuckt der Makrorekorder aus:

Range("A1").Select
ActiveCell.FormulaR1C1 = "=[Test1.xlsx]Sheet1!R1C1"
Ich hätte es aber gerne in folgendem "Format":

Cells(1,1) = "=[Test1.xlsx]Sheet1.Cells(1,1)"
Insofern das möglich ist...
Vielen Dank im Voraus!
Grüße, Max

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zwei Excel Tabellen miteinander verknüpfen
04.09.2014 08:21:51
{Boris}
Hi Max,
Ich hätte es aber gerne in folgendem "Format":
Cells(1,1) = "=[Test1.xlsx]Sheet1.Cells(1,1)"

"Excel" schreibt man auch nicht "Eksel" - das ist nunmal so ;-)
Wenn Du mit VBA eine Formel eintragen möchtest, musst Du nunmal eine der Formula-Eigenschaften verwenden.
Auf das Selektieren der aktiven Zelle kannst Du natürlich hingegen verzichten.
Cells(1, 1).FormulaR1C1 = "=[Test1.xlsx]Sheet1!R1C1"
oder
Cells(1, 1).Formula = "=[Test1.xlsx]Sheet1!$A$1"
reicht dann aus.
VG, Boris
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Zwei Excel-Dateien miteinander verknüpfen


Schritt-für-Schritt-Anleitung

Um zwei Excel-Dateien miteinander zu verknüpfen, kannst Du die folgenden Schritte befolgen:

  1. Öffne beide Excel-Dateien.

  2. Aktiviere das VBA-Entwicklertool. Gehe zu Entwicklertools > Visual Basic.

  3. Füge ein neues Modul hinzu. Klicke mit der rechten Maustaste auf VBAProject (DeineDatei.xlsx) und wähle Einfügen > Modul.

  4. Gib den folgenden VBA-Code ein:

    Sub DatenVerknuepfen()
       ' Verknüpfe Zelle A1 der ersten Datei mit Zelle A1 der zweiten Datei
       Cells(1, 1).Formula = "='[Test1.xlsx]Sheet1'!$A$1"
    End Sub
  5. Führe das Makro aus. Klicke auf Run oder drücke F5, um das Makro zu starten.

Damit hast Du erfolgreich die Daten aus zwei Excel-Dateien miteinander verknüpft.


Häufige Fehler und Lösungen

  • Fehler: „Datei nicht gefunden“

    • Lösung: Stelle sicher, dass die Datei Test1.xlsx geöffnet ist oder der Pfad zur Datei korrekt ist.
  • Problem mit der Formel

    • Lösung: Überprüfe, ob Du die richtige Syntax für die Verknüpfung verwendest. Verwende Cells(1, 1).Formula anstelle von ActiveCell.Formula.

Alternative Methoden

Wenn Du Excel-Tabellen verknüpfen möchtest, gibt es auch andere Methoden:

  • Link einfügen:

    • Du kannst auch mit der Funktion =VERKETTEN() oder =INDIREKT() arbeiten, um Daten aus einer anderen Tabelle zu ziehen.
  • Power Query:

    • Mit Power Query kannst Du mehrere Excel-Dateien importieren und verknüpfen, was besonders bei großen Datenmengen hilfreich ist.

Praktische Beispiele

  1. Verknüpfung von Excel-Tabellenblättern:

    Sub TabellenblaetterVerknuepfen()
       Sheets("Tabelle1").Cells(1, 1).Formula = "='[Test2.xlsx]Tabelle2'!$A$1"
    End Sub
  2. Gleitzeittabelle Excel:

    • Du kannst auch eine Gleitzeittabelle erstellen, indem Du die Arbeitsstunden aus verschiedenen Blättern verknüpfst, um einen Gesamtüberblick zu erhalten.

Tipps für Profis

  • Verwende benannte Bereiche: Das Erstellen benannter Bereiche kann die Lesbarkeit Deiner Formeln erhöhen und das Verknüpfen von Daten erleichtern.
  • Überprüfe die Verknüpfung: Nutze die Funktion EVALUATE, um sicherzustellen, dass Deine Verknüpfung korrekt ist und die erwarteten Werte zurückgibt.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Excel-Tabellen miteinander verknüpfen?
Du kannst mehrere Tabellen verknüpfen, indem Du die Formeln in den entsprechenden Zellen anpasst und die jeweiligen Verknüpfungen in Deinem VBA-Code hinzufügst.

2. Was mache ich, wenn die Verknüpfung nicht aktualisiert wird?
Überprüfe die Einstellungen für die automatischen Berechnungen in Excel und stelle sicher, dass alle verknüpften Dateien geöffnet sind. Bei Bedarf kannst Du die Berechnung auch manuell anstoßen, indem Du F9 drückst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige