Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
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
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei öffnen Dialog...

Forumthread: Datei öffnen Dialog...

Datei öffnen Dialog...
16.12.2003 13:55:00
Claus Ohlendorf
Gibt es die Moeglichkeit unter VBA den Excel-Dialog (oder Menue oder wie das sonst heissen mag) aus dem Menue Datei - öffnen auszuloesen?

Ich suche nach einer Moeglichkeit, den Anwender eine Datei oeffnen zu lassen, unter Vorgabe eines Standardnamens, wobei ich aber die Moeglichkeit offen lassen moechte, dass der Anwender die Datei umbenannt hat und somit die Datei (und auch den Pfad) angeben muss. Um Schreibarbeit zu vermeiden (und die damit verbundenen Fehler) waere der Dialog Datei - öffnen hier genau richtig...

Schon im Voraus Danke!
Claus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Application.GetOpenFileName
16.12.2003 14:21:21
Michael Scheffler
AW: Application.GetOpenFileName
16.12.2003 15:00:26
Claus Ohlendorf
Auch Dir: Danke!!!
Claus
AW: Datei öffnen Dialog...
16.12.2003 14:27:30
AndreasS
Hallo,
vielleicht hilfts ja:


Mit Vorgabe in Inputbox:
path = InputBox("Bitte Pfad eingeben:", Title:="Pfadeingabe", Default:="G:\xyz...")
On Error Resume Next 'falls Datei nicht existiert
Workbooks.OpenText Filename:=path, _

Für Textdatei:
variable = Application.GetOpenFilename("Textdateien (*.txt), *.txt", , "Datei auswählen")
If AlteDatei = False Then Exit Sub

Oder so:
ggf. Laufwerk und Ordner als Vorgabe setzen:
ChDir "\"
ChDrive "c:\"
'Das Dialogfenster
Dateiname = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls")
If Dateiname = False Then Exit Sub
MsgBox "Ihre Auswahl:" & vbNewLine & Dateiname

Oder so...
Datei = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls,Textdateien (*.txt), _
*.txt,Add-In-Dateien (*.xla),*.xla")

Hoffe geholfen zu haben. Wenn du mit deinem Druckproblem weiterkommst, kannst mir ja Bescheid geben. Suche eine ähnliche Lösung.

Gruß Andreas
Anzeige
AW: Datei öffnen Dialog...
16.12.2003 14:59:44
Claus Ohlendorf
Cool! Danke!!!

Claus
;

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