Erneutes Aktivieren einer geöffneten Dat

Forumthread: Erneutes Aktivieren einer geöffneten Dat
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Erneutes Aktivieren einer geöffneten Dat

16.06.2020 17:17:50

reiner

hallo Leute,
in meinem Makro steht folgender Programmcode:

Windows("WetterdatenAlt.xlsm").Activate

Aus "WetterdatenAlt.xlsm" heraus öffne ich eine weitere Datei, kopiere daraus Datensätze und will diese in die bereits geöffnete Datei "WetterdatenAlt.xlsm" einfügen.
Es kommt vor dass ich in "WetterdatenAlt.xlsm" Änderungen vornehme und die Datei unter einem anderen Namen speichere; nur dann funktioniert -nach Neustart- der ursprüngliche Code nicht mehr weil ja der Dateiname geändert wurde. Aus diesem Grund will ich das erneute Aktivieren der ursprünglichen "WetterdatenAlt.xlsm" mit einer Variablen durchführen.
Wie also kann ich den Dateinamen ("WetterdatenAlt.xlsm") durch eine Variable ersetzen?
In der vorgenannten Schreibweise:
mfg
reiner

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Erneutes Aktivieren einer geöffneten Dat

16.06.2020 17:24:25

Hajo_Zi
AW: Erneutes Aktivieren einer geöffneten Dat

16.06.2020 17:32:55

reiner
AW: Erneutes Aktivieren einer geöffneten Dat

16.06.2020 17:57:03

volti
danke

16.06.2020 18:14:29

reiner

AW: Erneutes Aktivieren einer geöffneten Dat

16.06.2020 17:24:25

Hajo_Zi

Hallo reiner,
ThisWorkbook.Name

AW: Erneutes Aktivieren einer geöffneten Dat

16.06.2020 17:32:55

reiner

hallo Hajo,
das funktioniert leider nicht
Userbild

reiner

AW: Erneutes Aktivieren einer geöffneten Dat

16.06.2020 17:57:03

volti

Hallo Reiner,
ThisWorkbook.Name ermittelt nur den Namen der Datei, in dem dieses Makro steht, und führt keine Aktion aus.
Entsprechend Deines Codes müsstest Du es schon so machen:
Windows(ThisWorkbook.Name).Activate.
Aber zum Aktivieren der eigenen Mappe empfehle ich Dir wie nachfolgend aufgeführt vorzugehen:
ThisWorkbook.Activate.
Nun zu Deiner Frage:
Wie also kann ich den Dateinamen ("WetterdatenAlt.xlsm") durch eine Variable ersetzen?
sDateiname="WetterdatenAlt.xlsm"
Windows(sDateiname).Activate.
Aber das bringt Dich ja nicht weiter in Deiner Anforderung, oder?
viele Grüße
Karl-Heinz

danke

16.06.2020 18:14:29

reiner

hallo Karl-Heinz,
das bringt mich weiter, danke
reiner