Diese Dokumente werden in einer Exceloberfläche geöffnet und ich brauche eine möglichkeit über einen Button einen gewissen Grundpfad vorgeben zu können, wo ich mich dann für einen Unterordner zum speichern entscheiden kann.
Wer hat eventuell eine Lösung für mich?
Ich bin für jede Lösung dankbar.
Office - Word, Excel und Co. 9.753 Themen, 41.606 Beiträge
Hallo Borum,
Was genau hast du vor?
Du klickst auf einen "Button" und dann soll was passieren???
Und was meinst du mit "Diese Dokumente werden in einer Exceloberfläche geöffnet"?
Wo soll sich der Code befinden? Und was für eine Excel-Version?
Gruß
Uli
Hallo Uli!
Ich habe eine Benutzeroberfläche unter Excel-97 erstellt.
Dort gibt es unter anderem 4 verschiedene Button mit denen ich verschiedene Dokumente öffne, die wiederum verschieden große Textfelder enthalten.
Diese Dokumente benutzen wir auf der Arbeit um Bilder einzulesen und dann zu speichern. Mein Problem ist nun, auf jedem Dokument einen Button zu hinterlegen, der mir einen bestimmten Ordner öffnet, der wiederum Unterordner enthält.Wenn ich nun diesen Button anklicke, muß sich dieser Ordner öffnen und der User muß gefragt werden, in welchem Unterordner und unter welchem Namen er speichern möchte.
Wenn du für dieses Problem eine Lösung hättest wäre das klasse, weil ich verzweifele langsam aber sicher daran.
Hallo Borum,
Ich weiß ja nicht, ob es wirklich geschickt ist, eine solche Funktionalität mit Makros zu erreichen, die in einzelnen Arbeitsmappen gespeichert sind.
Wie auch immer - eine einfache Variante könnte darin bestehen, das akt. Verzeichnis vorübergehend zu ändern und dann den ganz normalen Speichern Unter-Dialog aufzurufen:
Const STANDARD_ABLAGE = "\\Dein Server\Deine Freigabe\Deine Ablage"
Dim strCurDir As String
strCurDir = CurDir()
ChDir STANDARD_ABLAGE
Application.Dialogs(xlDialogSaveAs).Show
ChDir strCurDir
Etwas schwieriger - und ggf. auch anders zu realisieren - wäre es, wenn du verhindern willst, dass die Mappe trotzdem an anderem Ort gespeichert wird.
Gruß
Uli
Hallo Borum,
Ich weiß ja nicht, ob es wirklich geschickt ist, eine solche Funktionalität mit Makros zu erreichen, die in einzelnen Arbeitsmappen gespeichert sind.
Wie auch immer - eine einfache Variante könnte darin bestehen, das akt. Verzeichnis vorübergehend zu ändern und dann den ganz normalen Speichern Unter-Dialog aufzurufen:
Const STANDARD_ABLAGE = "\\Dein Server\Deine Freigabe\Deine Ablage"
Dim strCurDir As String
strCurDir = CurDir()
ChDir STANDARD_ABLAGE
Application.Dialogs(xlDialogSaveAs).Show
ChDir strCurDir
Etwas schwieriger - und ggf. auch anders zu realisieren - wäre es, wenn du verhindern willst, dass die Mappe trotzdem an anderem Ort gespeichert wird.
Gruß
Uli