Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mappe öffnen Pfad in Zellen A1 und B1

Mappe öffnen Pfad in Zellen A1 und B1
lisa
Guten Tag
Ich möchte eine Mappe öffnen und ein spezielles Sheet ansprechen! Der Pfad soll aus den Zellen meiner aktuellen Datei, den Zellen A1 & B1 entnommen werden.
In A1 steht die KW der Mappe, und in B1 (Bsp.: Dienstag) die Sheetbezeichnung.
Dazu folgendes Macro:
ChDir "W:\Tagesberichte"
Workbooks.Open Filename:= _
"W:\Tagesberichte\KW " & Range("A1") & " _ tgl Linienkennzahlen.xls"
Hiermit öffne ich die Mappe, es soll aber gleichzeitig das Sheet aus der Zelle B1 aktiviert werden.
Ich habe es so versucht, klappt aber nicht.
ChDir "W:\Abeln\Controlling\tgl Berichtswesen\Tagesberichte"
Workbooks.Open Filename:= _
"W:\Abeln\Controlling\tgl Berichtswesen\Tagesberichte\KW " & Range("A1") & " _ tgl Linienkennzahlen.xls"
Sheets " & Range("B1") & " .Select
Binn für jede Hilfe Dankbar
Lisa

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Mappe öffnen Pfad in Zellen A1 und B1
16.07.2009 13:11:51
Rudi
Hallo,
Sheets( Range("B1")).Select
ChDir kannst du dir sparen.
Gruß
Rudi
AW: Mappe öffnen Pfad in Zellen A1 und B1
16.07.2009 13:48:30
lisa
Hallo
Ich bekomme hier einen Laufzeitfehlerfehler
Index außerhalb des gültigen Bereichs!
So habe ich das (den?) Macro geä.
ChDir "W:\Tagesberichte"
Workbooks.Open Filename:= _
"W:\Tagesberichte\KW " & Range("A1") & " _ tgl Linienkennzahlen.xls"
Sheets(Range("B1")).Select
Gruß Lisa
AW: Mappe öffnen Pfad in Zellen A1 und B1
16.07.2009 14:40:16
Rudi
Hallo,
is klar! Du musst dir den Sheetnamen merken bevor du das WB öffnest.
Dim sName as string
sName=Range("B1")
Workbooks.Open Filename:= _
"W:\Tagesberichte\KW " & Range("A1") & " _ tgl Linienkennzahlen.xls"
Sheets(sName)).Select
Gruß
Rudi
Anzeige
AW: super, danke! oT
16.07.2009 15:38:34
lisa

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige