Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform / Daten Pfad Automatisch Ändern

Forumthread: Userform / Daten Pfad Automatisch Ändern

Userform / Daten Pfad Automatisch Ändern
13.12.2004 20:25:18
Steffi
Hallo,
Dank Euerer Hilfe habe ich nun mein Übersichtsblatt Fertig (Userform).
In dieser habe ich doch einige PDF/GIF/DOC-Dateien Eingebunden.
Zum Beispiel Pfad D:\Felgenblatt\Felge1.gif, in diesen Verzeichniss liegt auch die Excel-Datei.
Nun zu meiner Frage kann man Excel so steuern wie ich die Excel-Datei zum Beispiel auf G:\Felgenblatt lege muß ich ja alle Pfade von Hand manuell ändern. Geht das auch Automatisch ?
Danke Steffi
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ThisWorkbook.Path
13.12.2004 20:34:04
Christoph
Hi Steffi,
du kannst den Pfad durch: "ThisWorkbook.Path" ersetzen
dabei fehlt allerdings noch der letzte "\"
ergo:
Pfad = ThisWorkbook.Path & "\"
Gruß
Christoph
AW: ThisWorkbook.Path
13.12.2004 20:43:57
Steffi
Hallo Christop,
habe ich das Richtig verstanden ?
Etwa so:

Private Sub CommandButton13_Click()
'Felge
OpenFile ("D:\Felgenblatt\Felge1.gif") [ALT]
End Sub

OpenFile Pfad = ThisWorkbook.Path & "\Felgenblatt\Felge1.gif" [NEU]
Bitte um kurze Rückantwort
Danke Steffi
Anzeige
nicht ganz...
13.12.2004 21:14:44
Christoph
Hi Steffi,
die von dir erwähnte Prozedur "OpenFile" musste ich erst mal recherchieren - hab ich aber in den letzten Beitragen von dir noch gefunden.
https://www.herber.de/forum/messages/531327.html
demnach sieht der Aufruf über eine Schaltfläche zB so aus:

Private Sub CommandButton13_Click()
OpenFile (ThisWorkbook.Path & "/Felge1.gif")
End Sub

Gruß
Christoph
Anzeige
Schreibfehler...
13.12.2004 21:21:32
Christoph
richtig natürlich mit Back-Slash:
OpenFile (ThisWorkbook.Path & "\Felge1.gif")
Gruß
Christoph
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige