Makro für Excel

Question

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

Answer 1

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

Answer 2

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.

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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