Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

988to992

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Dateiname auslesen, Datei öffnen, zurück wechseln

Forumthread: Dateiname auslesen, Datei öffnen, zurück wechseln
5 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

07.07.2008 09:45:00

Stefan

Hallo,
noch ein kleines Problem.
Ich möchte für einen SVerweis eine bestimmte Datei öffnen in der die Matrix gespeichert ist.
Ich arbeite also in einer Datei "x" deren Dateiname variabel ist und möchte nun die Datei mit der Matrix öffnen (laender.xls) und dann wieder in die eigentliche Datei zurückwechseln, um hier dann den SVerweis einzufügen.
Das öffnen der Datei Laender bekomme ich hin, kein Problem. Allerdings schaffe ich es nicht, in die erste Datei zurückzuwechseln.
Vielen Dank vorab.
Stefan

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dateiname auslesen, Datei öffnen, zurück wechseln

07.07.2008 09:59:00

fcs
AW: Dateiname auslesen, Datei öffnen, zurück wechseln

07.07.2008 10:10:08

Stefan
*staun*

07.07.2008 10:16:00

Reinhard
AW: *staun*

07.07.2008 10:23:12

fcs
AW: *staun*

07.07.2008 10:48:00

Stefan

AW: Dateiname auslesen, Datei öffnen, zurück wechseln

07.07.2008 09:59:00

fcs

Hallo Stefan,
prinzipiell sieht ein sollches Makro wie folgt aus.
Gruß
Franz


Sub aaTest()
Dim wbAktiv As Workbook, wbLand As Workbook
Dim strDateiLand
Set wbAktiv = ActiveWorkbook 'Aktive Arbeitsmappe zum Zeitpunkt des Makrostarts
strDateiLand = wbAktiv.Worksheets("Tabelle1") 'Beipiel
Set wbLand = Workbooks.Open(Filename:=strDateiLand)
wbAktiv.Activate
End Sub

AW: Dateiname auslesen, Datei öffnen, zurück wechseln

07.07.2008 10:10:08

Stefan

Danke :)
Funktioniert!

*staun*

07.07.2008 10:16:00

Reinhard

Hi Stefan,
wie kann ein Code funktionieren mit :"strDateiLand = wbaktiv.Worksheets("Tabelle1")" ?
Mein Excel 2000 mag die Zeile so nicht.
Gruß
Reinhard

AW: *staun*

07.07.2008 10:23:12

fcs

Hallo Reinhard,
evtl. hat sich Stefan ja mehr an die Syntax für den Arbeitsmappenwechsel gehalten und die Wertzuweisung für den Dateinamen korrekt oder anders gelöst. ;)
Gruß
Franz

AW: *staun*

07.07.2008 10:48:00

Stefan

Dim wbAktiv As Workbook, wbLand As Workbook
Set wbAktiv = ActiveWorkbook 'Aktive Arbeitsmappe zum Zeitpunkt des Makrostarts
Workbooks.Open Filename:= _
"G:\Laender.xls"
Set wbLand = ActiveWorkbook
wbAktiv.Activate
Hab ich draus gemacht ;)