Anzeige
Archiv - Navigation
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
396to400
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

.getOpenFilename mit Einschränkung

.getOpenFilename mit Einschränkung
17.03.2004 14:30:33
David
ich will in einem Userform mit Application.GetOpenFilename eine Datei angeben/öffnen lassen.
Es gibt allerdings eine kleine Einschränkung: Die Excel-datei mit dem laufenden Userform darf dabei nicht angegeben/geöffnet werden.
Ich hab da schon einiges versucht, aber leider ohne Erfolg.
Hat jmd, ne Idee?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: .getOpenFilename mit Einschränkung
17.03.2004 14:48:07
Nepumuk
Hallo David,
so:

Option Explicit
Public Sub test()
Dim strFilename As String
Do
strFilename = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If strFilename <> "Falsch" Then
If strFilename <> ThisWorkbook.FullName Then Exit Do
MsgBox "Diese Datei ist schon geöffnet", 48, "Hinweis"
Else
MsgBox "Sie müssen eine Datei angeben", 48, "Hinweis"
End If
Loop
End Sub


Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk
Anzeige
funktioniert
17.03.2004 15:11:53
David
klappt super, danke.

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige