Hyperlink

Bild

Betrifft: Hyperlink
von: Jorainbo
Geschrieben am: 30.11.2003 14:56:23


hallo und schönen Sonntag !

Im Dialogfeld 'Hyperlink bearbeiten' ist als zu durchsuchender Ordner
immer der eingestellt, in dem die Datei zuletzt gespeichert wurde.
Lässt sich das irgendwie ändern ? Das Dialogfeld öffne ich mit

Application.Dialogs(xlDialogInsertHyperlink).Show

Danke schonmal im Voraus für Hilfe !

Gruß
Tom

Bild


Betrifft: AW: Hyperlink
von: Reinhard
Geschrieben am: 30.11.2003 15:10:43

Hi Tom,
porbiere es so:


Sub Makro1()
Dim strMerker As String
strMerker = Application.DefaultFilePath 'Pfad sichern
Application.DefaultFilePath = "D:\" 'Pfad ändern
Application.Dialogs(xlDialogInsertHyperlink).Show
'... dein  Code
Application.DefaultFilePath = strMerker 'Pfad wiederherstellen
End Sub


Gruß
Reinhard


Bild


Betrifft: AW: Hyperlink
von: Jorainbo
Geschrieben am: 30.11.2003 16:03:57

hallo Reinhard,

danke, funktioniert leider nicht, auch wenns einleuchtend klingt

Gruß
Tom


Bild


Betrifft: noch offen
von: Reinhard
Geschrieben am: 30.11.2003 16:16:33

Hallo Tom,
bei mir, XL9.0 funktioniert es.
Bei Makrodurchlauf wird das Dialogfenster eingeblendet, wenn ich dann dort auf
Datei...
klicke, bietet excel mir die Dateien in dem Verzeichnis D:\, also dem dass ich im makro definierte, an.
Bei dir nicht?
Gruß
Reinhard


Bild


Betrifft: AW: noch offen
von: Jorainbo
Geschrieben am: 30.11.2003 16:30:21

hallo Reinhard,

hmm, DefaultFilePath ist ja der voreingestellte Speicherpfad in Excel, den man unter Extras-Optionen ändern kann. Im Hyperlink-Fenster ist aber der Ordner voreingestellt, in dem die Datei selbst zuletzt gespeichert wurde. Bei mir ist DefaultFilePath D:\, die Datei in D:\XL gespeichert und haben will ich im Hyperlink H:\

Ich denke es ist nicht DefaultFilePath, was im Hyperlink-Fenster voreingestellt ist.
Probier mal Deine Datei ganz woanders zu speichern und öffne dann das Hyperlink-Fenster..

Gruß
Tom


Bild


Betrifft: AW: noch offen
von: Reinhard
Geschrieben am: 30.11.2003 16:45:08

Hi Tom,
ja hast Recht, es wird der Speicherort-Pfad der datei angezeigt.
Ich hatte mit ungespeicherter Datei rumprobiert, da scheint das Makro zu klappen.
Als workaround müßte man deine Datei aus D:\XL laden, nach H:\ speichern, dann den Hyperlinkdialogaufrufen,...
dann wieder in D:\XL speichern und die Kopie in H:\ löschen.
Naja, wenns anders nicht zu lösen ist.
Gruß
Reinhard


Bild


Betrifft: noch offen
von: Jorainbo
Geschrieben am: 30.11.2003 16:57:52




Bild


Betrifft: AW: noch offen
von: Ramses
Geschrieben am: 30.11.2003 17:29:04

Hallo

probier mal vorher

ChDrive = "D:"
ChDir = "D:\Muster"

Jetzt müsste dieser Pfad im Hyperlink-Dialogfeld angezeigt werden

Gruss Rainer


Bild


Betrifft: AW: noch offen
von: Jorainbo
Geschrieben am: 30.11.2003 18:12:21


hallo Rainer,

ich denke ohne "=", oder ? Klappt aber leider auch nicht:

ChDrive "H:\"
ChDir "H:\"
Application.Dialogs(xlDialogInsertHyperlink).Show

kann man in Dialogfeldern überhaupt irgendwelche Voreinstellungen verändern ?

Gruß
Tom


Bild


Betrifft: AW: noch offen
von: Reinhard
Geschrieben am: 30.11.2003 18:34:44

Hi Tom,
die Syntax für chdrive ist
ChDrive "D"
also ohne "=" ohne ":", aber ist egal, weil klappt leider auch nicht.

Aber probier halt mal sendkeys:

Sub ttt()
SendKeys "%ec:\temp{ENTER}"
Application.Dialogs(xlDialogInsertHyperlink).Show
End Sub

Gruß
Reinhard


Bild

Beiträge aus den Excel-Beispielen zum Thema " Hyperlink"