Office: Speicherort einmalig festlegen

mücke · 6. Februar 2010

Hallo miteinander!

Habe da ein Problem mit der Zuordnung einer Variablen und würde gerne Euer Fachwissen zur Hilfe ziehen.

Also

ich habe eine Datei mit verschiedenen Modulen. In jedem Modul hinterlege ich über Const pfad As String = "D:\Test\ meinen Speicherort.

Nun sind mittlerweile die Speicherorte alle gleich und ich möchte in einer einzigen Variablen den Pfad entsprechend für alle Module hinterlegen und in jedem Modul nur noch mit der Variablen pfad auf den Speicherort zugreifen.

Habe es mit einem zusätzlichen Modul und Public (..) versucht, komm da aber nicht recht weiter.

Beim Debuggen erscheint die Fehlermeldung Variable nicht definiert!
Was mach ich hier falsch?

Code:

'Separates Modul
Option Explicit

Public Sub speicherort()

Dim speicherort As String
Dim Abfrage As String

Abfrage = "Wo sollen die Daten gespeichert werden"
speicherort = InputBox(Abfrage)

Const pfad As String = "D:\Test\ & speicherort & \"

On Error GoTo Fehler

Fehler:
MsgBox "Speicherort ist nicht vorhanden!"

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Sub Datei_öffnen()

.....

Workbooks.OpenText Filename:=pfad & Datei & ".xls"
ActiveWorkbook.SaveAs Filename:=pfad & Datei & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

....

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Für sachdienliche Hinweise schon mal vielen Dank vorab!

:)

chris-kaiser · 8. Februar 2010

hi
Code:

'Separates Modul
Option Explicit
public pfad as string
Public Sub speicherort()

Dim speicherort As String
Dim Abfrage As String

Abfrage = "Wo sollen die Daten gespeichert werden"
speicherort = InputBox(Abfrage)

pfad = "D:\Test\ & speicherort & \"

On Error GoTo Fehler

Fehler:
MsgBox "Speicherort ist nicht vorhanden!"

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ausserhalb der sub deklarieren

ist nicht getestet

mücke · 8. Februar 2010

Hallo Chris,

... mit folgender Anpassung schon mal ganz gut!

Danke für deine Hilfe!

Code:

Option Explicit

Public Const pfad = "D:\Test\Daten 2010\"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Pfad wird in allen Modulen erkannt!

Nun möchte ich gerne die Stelle Daten 2010 als Variable nutzen, da dieser Ordner sich jedes Jahr ändert!
Also habe ich folgendes probiert:
Code:

Option Explicit

Public Const pfad = "D:\Test\speicherort\"
Sub speicherort()

Dim speicherort As String
Dim Abfrage As String

Abfrage = "Wo sollen die Daten gespeichert werden"
speicherort = InputBox(Abfrage)

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Doch er meckert nur: D:\Test\speicherort\Test.xls kann nicht gefunden werden! *frown.gif*

Wie bekomme ich die Abfrage als Variable in den Pfad integrier?

Für weitere Hilfestellungen schon mal vielen Dank!

IngGi · 8. Februar 2010

Hallo zusammen,

wenn du einen Teil des Pfades variabel halten möchtest, kannst du nicht mit einer Konstanten arbeiten. Nimm stattdessen eine Variable. Diese wird am Anfang eines allgemeinen Moduls, vor der ersten Sub oder Function so deklariert, damit sie in allen Modulen gültig ist:
Code:

Public pfad As String
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Zuweisung mit Hilfe der Variablen speicherort müsste dann so erfolgen:
Code:

pfad = ""D:\Test\" & speicherort & "\"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ingolf

mücke · 8. Februar 2010

Hallo Chris, halle Ingolf!

Vielen Dank für EURE sachdienlichen Hinweise! *top
Warum ich am Anfang immer einen Laufzeitfehler bekommen habe, kann ich nicht nachvollziehen, aber nach einer kleinen Pause klappt alles wie gewünscht!
Für alle Mitlesenden, hier der Finale CODE:
Code:

Option Explicit

Public pfad As String 'Ziel
Public pfadIst As String 'Ist

Public Sub speicherort()

Dim speicherort As String
Dim Abfrage As String

pfadIst = Application.ActiveWorkbook.Path + "\"

'Inputbox mit aktueller Pfadangabe
Abfrage = "Wo sollen die Daten gespeichert werden?" _
& Chr(10) & Chr(10) & pfadIst
speicherort = InputBox(Abfrage)

pfad = "D:\Test\" & speicherort & "\"

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank und bis bald!

Office: Speicherort einmalig festlegen

Speicherort einmalig festlegen

Speicherort einmalig festlegen

Speicherort einmalig festlegen

Speicherort einmalig festlegen - Similar Threads - Speicherort einmalig festlegen

Speicherort

Kann ich Dateien von meinem iPad an anderen Speicherorten speichern?

AutoSpeichern ist für OneDrive-, OneDrive for Business- und SharePoint-Speicherorte ...

Ändern des Speicherorts für gesendete E-Mail-Nachrichten

Ändern der Speicher Häufigkeit und der Speicherorte von Word-AutoWiederherstellen-Dateien

Speicherort in Microsoft Teams Android festlegen bzw. ändern

Speicherort der in Beiträgen angehängten Dateien ändern