Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ChDrive/ChDir

ChDrive/ChDir
01.07.2005 14:26:42
Korl
Hallo,
für den Aufruf einer Datei lasse ich mich über Makro immer zu einem bestimmten Ordner führen um dort eine Datei wählen zu können.
Es funktioniert mit dieser Schreibweise im Code:
z.B.
Dim Pfad As String
Pfad = "C:\test\test"
ChDrive Left(Pfad, 1)
ChDir Pfad

Mein Wunsch wäre nun, diese Pfadangabe in einer Zelle im Tabellenblatt anzulegen.
Ich habe versucht mit z.B
Pfad = Workbooks(test).Worksheets("Tabelle1").Range("A1")
Leider funktioniert es nicht.
Geht diese Variante überhaupt?
Gruß Korl

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

Betreff
Datum
Anwender
Anzeige
AW: ChDrive/ChDir
01.07.2005 14:34:04
Ceci
Hallo Korl, versuche
Pfad = Workbooks("Test").Worksheets("Tabelle1").cells(1,1).value
mfg Cäzilia
AW: ChDrive/ChDir
01.07.2005 15:08:29
Korl
Hallo Cäzilia,
danke für Deine Unterstützung. Diese Schreibweise hatte ich auch schon versucht, funktioniert aber leider nicht.
"Index außerhalb des gültigen Bereichs"
Gruß Korl
AW: ChDrive/ChDir
01.07.2005 17:33:34
marko_ti
"Index außerhalb des gültigen Bereichs"
hört sich an als würde Dein Workbook nicht "Test" heißen oder Deine Tabelle nicht "Tabelle1". Check das mal. Ansonsten:

Sub test()
Pfad = ActiveSheet.Cells(1, 1).Value
End Sub

greift auf das beim Lauf aktuelle Sheet zu.
Gruß Marko
Anzeige
AW: ChDrive/ChDir
01.07.2005 20:07:53
Korl
Hallo Markus,
Danke für Deinen ausdrücklichen Hinweis. Mit Deiner Schreibweise funktionierte es.
Ich konnte nun auch meinen Fehler lokalisieren. Gestern Abend hatte ich im Datei-Explorer in den Ordneroptionen "Erweiterungen bei bekannten Dateitypen ausblenden" den Haken heraus genommen um Veränderungen an einem Format zu nehmen.
Darum die Fehlermeldung bei mir. Ich habe nun das Format "Test.xls" dazu geschrieben.
Pfad = Workbooks("Test.xls").Worksheets("Tabelle1").Range("A1").Value
Nun funktioniert auch diese Variante.
Nochmal ein Dankeschön an Dir und auch Cäzilia.
Gruß Korl
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige