Makro für Excel
Hallo,
wer kann helfen.
Ich brauche ein Makro.
Folgendes Problem:
Ich habe 2 Dateien mit je 52 Tabellen.
Untereinander müssen diese einzelnen Tabellen verknüpft werden.
Also KW 8 mit KW 8.
Kopieren kann man Links leider nicht, oder doch??
Wenn nicht muss man jeden Link einzeln per Hand verändern, was sehr aufwendig ist. Gibt es dazu einen Makro.
Danke shcon mal in Vorraus
Antwort schreiben
Antwort 1 von Saarbauer vom 25.02.2022, 13:35 Options
Hallo,
deine Angaben reichen für eine endgültige Lösung nicht aus.
Es fehlen Angaben was auf den Seiten zu verknüpfen ist. Z.B. Zelle A7 mit A7 oder Letzte Zeile KW 8 mit 1 Zeile KW 8 o.ä.
Könnte vielleicht mit Indirekt() und Adresse() machbar sein. Sonst vielleicht noch mit einem Makro.
Gruß
Helmut
Antwort 2 von kloppo76 vom 25.02.2022, 15:07 Options
Hallo
danke für die schnelle Antwort:
Hier ein Beispiel:
DateiA Blatt KW 9
Feld: D5 Eingabe: =N:\OrdnerA\[DateiB]KW 9'!$U$13
In Blatt KW 10 muss es also heissen:
=N:\OrdnerA\[DateiB]KW 10'!$U$13
gibt es eine möglichkeit das ich nicht immer die eine Zahl mit der Hand 50 mal ändern muss.
Antwort 3 von Saarbauer vom 25.02.2022, 15:21 Options
Hallo,
versuch es mal mit der Formel
=INDIREKT(ADRESSE(13;21;;;"N:\OrdnerA\[DateiB]"&TEIL(ZELLE("Dateiname";$A$1);FINDEN("]";ZELLE("Dateiname";$A$1))+1;31));WAHR)
leider nicht zu testen, da ich passende Tabellen bauen müsste.
Deine Datei b sollte auch offen sein, sonst könnte es eine Fehlermeldung geben. die Formel kann in jedem Tabellenblatt genutzt werden.
Gruß
Helmut
Antwort 4 von kloppo76 vom 25.02.2022, 16:06 Options
So ganz klappt es nicht Excel nimmt zwar meine Formel an aber sonst passiert nichts.
Trotzdem Danke für die Hilfe.
Nochmal mein Problem:
Eingabe in der Datei A Tabelle "KW 10" Feld D5
=N:\OrdnerA\[DateiB]KW 10'!$U$13
Ich muss in dieser Formel nur das Tabellenblatt ändern.
also das Fett gedruckte.
Also in Tabellenblatt KW 11 muss an der Stelle die 11 stehen.
Datei A Tabelle "KW 11" Feld D5
=N:\OrdnerA\[DateiB]KW 11'!$U$13
Wenn jemand dafür eine Lösung findet wäre super.
mfg
Stefan
Antwort 5 von Saarbauer vom 25.02.2022, 16:12 Options
hallo,
ich bin davon ausgegangen, dass die neuen Tabellenblätter namen wie KW 11 usw. haben
Folgendes
=INDIREKT(
ADRESSE(13;21;;;"N:\OrdnerA\[DateiB]"&
TEIL(ZELLE("Dateiname";$A$1);FINDEN("]";ZELLE("Dateiname";$A$1))+1;31)
);WAHR)
In dem Kursiv geschiebenen Teil wird der Name deines Tabellenblattes ermittelt, überprüfe mal ob das klappt.
= TEIL(ZELLE("Dateiname";$A$1);FINDEN("]";ZELLE("Dateiname";$A$1))+1;31)
da müsste dann was erscheinen wie KW 11 o.ä.
Gruß
Helmut
Antwort 6 von kloppo76 vom 25.02.2022, 16:21 Options
Ich probiere es mal.
du hattest recht
in beiden Dateien heißen die Tabellenblätter
KW 1 ...... KW 52
Bis heirher Danke schon mal frü deine Hilfe.
Gruß Stefan
Antwort 7 von rainberg vom 25.02.2022, 17:06 Options
Hallo Stefan,
anbei noch eine Alternative
=INDIREKT("'N:\OrdnerA\[DateiB.xls]"&TEIL(ZELLE("Dateiname";$A$1);FINDEN("]";ZELLE("Dateiname";$A$1))+1;31)&"'!$U$13")
Denke daran, bei Verwendung von INDIREKT() müssen alle beteiligten Mappen geöffnet sein.
Gruss
Rainer