Dateibezüge: relativ und absolut

Guten Tag zusammen,
Ich habe ein großes Problem (zumindest für mich). Ich habe eine Exeldatei "Kalkulation" mit 3 User-Formen. Eine zweite Datei "Rohstoffe". Beide befinden sich in einem Ordner. Der Benutzer öffnet "Kalkulation". Aus dieser Datei öffnet der Benutzer "Rohstoffe" per CommandButton_Click. Wenn der Benutzer nun anfängt zu Kalkulieren wird zuerst "Kalkulation" unter einem anderen Namen per Makro abgespeichert. Dabei soll der Benutzer einen von ca. 5 festgelegten Ordnern auswählen können (per Listenfeld in einer userform). Das ganze Programm soll aber von verschiedenen PC ausführbar sein. Und nun weiß ich nicht mehr weiter:
Soll ich in den Codes den Pfad für "Kalkulation" und "Rohstoffe" absolut angeben? Wenn ja, gibt es eine elegante Möglichkeit? z.B. eine separate Datei.txt in der man den Pfad hinterlegen kann, um nicht auf jedem PC mehrere Codes ändern zu müssen. Oder gibt es eine bessere Möglichkeit? Wie kann ich das Problem mit der Auswahl des Ordners lösen, in dem die Kalkulation gespeichert werden soll? Kann man soetwas auch in der datei.txt hinterlegen? (4-6 absolute Pfade pro Rechner angeben)
Bitte helft mir. Ich bin für jede Hilfe dankbar.

Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Alex,
warum soll der Benutzer denn erst nach seinem Namen gefragt werden...
Versuch's mal mit:


Sub Beispiel()
Select Case Application.UserName
Case Is = "Klaus"
Pfad = Sheets("Tabelle1").Range("b1").Value
Case Is = "Hans"
Pfad = Sheets("Tabelle1").Range("b2").Value
Case Is = "Frank"
Pfad = Sheets("Tabelle1").Range("b3").Value
End Select
Workbooks.Open Pfad & "Rohstoffliste.xls"
End Sub

Application.username entspricht dem Eintrag in Excel unter Extras - Optionen - Allgemein - Benutzername. Du musst halt nur die Benutzernamen kennen.
Falls der Pfad bei den Benutzern konstant ist und sich nicht ändert, könnte man auf die Einträge in Tabelle1 auch verzichten und schreiben:


Sub Beispiel()
Select Case Application.UserName
Case Is = "Klaus"
Pfad = "C:\Dokumente und Einstellungen\Benutzer 1\Eigene Dateien\Klaus\"
Case Is = "Hans"
Pfad = "C:\Dokumente und Einstellungen\Benutzer 1\Eigene Dateien\Hans\"
Case Is = "Frank"
Pfad = "C:\Dokumente und Einstellungen\Benutzer 1\Eigene Dateien\Frank\"
End Select
Workbooks.Open Pfad & "Rohstoffliste.xls"
End Sub

Diese Variante hat den Vorteil, dass der Nutzer nicht das "\" am Ende des Pfades vergessen kann.
Viele Grüße
Björn

Beliebteste Forumthreads (12 Monate)

Dateibezüge: relativ und absolut

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread