Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
764to768
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

If Then Pfadangabe in einem Makro

If Then Pfadangabe in einem Makro
26.05.2006 09:06:50
AVD
Folgendes Problem;
ich benötige in meinem Makro eine if then Pfadangabe:
if Zelle A1=1 then
ChDir _
ThisWorkbook.Path
Workbooks.Open Filename:= _
ThisWorkbook.Path & "\" & "Stammdaten.xls"
else
ChDir _
"einen Ordner über dem aktuellen Pfad"
Workbooks.Open Filename:= _
"einen Ordner über dem aktuellen Pfad" & "\" & "Stammdaten.xls"
Vielen Dank für Eure Beiträge
Gruß
Alex

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If Then Pfadangabe in einem Makro
26.05.2006 10:04:41
Heiko
Hallo Alex,
na was den nun, EXCEL Profi und VBA Nichts oder EXCEL Gut und VBA Gut oder doch ...
Zu deiner Frage, die etwas unklar ist, einen Ordner über dem aktuellen Pfad geht so:

Sub Zwei()
MsgBox CurDir
' Einen Ordner höher
ChDir ".."
MsgBox CurDir
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
AW: If Then Pfadangabe in einem Makro
26.05.2006 11:35:55
AVD
Hallo Heiko,
Also meine Excel Kenntisse sind gut und die VBA sind lausig.
Zum Thema zurück. Mit deinem Vorschlag bin ich für die eine Anwendung die ich benötige weitergekommen. Für die andere leider noch nicht.
Die folgende Anweisung müsste modifiziert werden:
Workbooks.Open Filename:= _
ThisWorkbook.Path & "\" & "Stammdaten.xls"
anstelle ThisWorkbook.Path benötige ich einen Ordner im Pfad höher.
Vieleicht kann es ja jemand mir noch mitteilen wäre Klasse.
Danke
Alex
Anzeige
AW: If Then Pfadangabe in einem Makro
26.05.2006 11:59:51
Heiko
Hallo Alex,
alles klar, zum Thema z.B. so:

Sub Drei()
Dim strFilename As String
' Mal zur Demo
MsgBox ThisWorkbook.Path
MsgBox Len(ThisWorkbook.Path)
MsgBox InStrRev(ThisWorkbook.Path, "\")
' Ab hier der wirklich nötige Code
strFilename = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\")) & "Stammdaten.xls"
MsgBox strFilename
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
AW: If Then Pfadangabe in einem Makro
26.05.2006 12:44:49
AVD
Hallo Heiko,
konnte deinen Beitrag sehr gut umsetzen.
Hat alles gut geklappt.
Nochmals 1000 Dank.
Gruß
Alex
AW: If Then Pfadangabe in einem Makro
29.05.2006 14:31:04
Manfred
Hallo Alex,
mit
ThisWorkbook.Path
habe ich aber immer noch nicht die Ebene höher zu fassen.
Gruss Manfred
Anzeige
AW: If Then Pfadangabe in einem Makro
29.05.2006 14:34:31
Manfred
Sorry,
Antwort kam im falschen Thread.
Gruss Manfred

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige