Listbox

Forumthread: Listbox

Listbox

21.05.2005 20:00:17

Peter

Hallo,
Hätte ein kleines Problem:
Per VBA Code kann ich den Inhalt eines Ordners ansehen (Excel-Dateien), nun möchte ich dass sich die von mir markierte Datei öffnet.
Kann mir wer weiterhelfen?
Gruß Peter

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Listbox

21.05.2005 20:08:52

Matthias
AW: Listbox

21.05.2005 20:19:37

Peter
AW: Listbox

21.05.2005 21:34:38

Matthias
AW: Listbox

Peter
AW: Listbox

22.05.2005 10:28:10

Hajo_Zi
AW: Listbox

22.05.2005 10:49:42

Peter

AW: Listbox

21.05.2005 20:08:52

Matthias

Hallo Peter,
ein wenig Code zum erweitern wäre auch nicht schlecht...
Wahrscheinlich so in der Art:
fn = Application.GetOpenFilename(...)
Workbooks.Open Filename:=fn
Gruß Matthias

AW: Listbox

21.05.2005 20:19:37

Peter

Hallo Matthias
Das ist mein Code, habe in aus einer anderen Datei herauskopiert und angepasst.
Nochmal mein Problem:
Diese Listbox zeigt mir die Dateien in einem bestimmten Ordner an. Ich will eine dieser Dateien auswählen und mit der Taste Enter öffnen können.


Private Sub UserForm_Initialize()
ListBox1.Clear
With Application.FileSearch
.NewSearch
.LookIn = "C:\Neu"
.SearchSubFolders = True 'wenn Unterordner Mit einbezogen werden sollen
.Filename = "*"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
ListBox1.AddItem Dir(.FoundFiles(i)) 'wenn du nur die dateinamen haben willst
Next i
End If
End With
End Sub

Gruß Peter

AW: Listbox

21.05.2005 21:34:38

Matthias

Hallo Peter,
mein Vorschlag:

Const Pfad = "C:\Neu"
Private Sub CommandButton1_Click()
'"Datei laden"-Button
Dim fn As String
fn = ListBox1.Value
If fn = "" Then MsgBox "Bitte Datei auswählen!", vbExclamation
Workbooks.Open Pfad & "\" & fn
Unload Me
End Sub
Private Sub UserForm_Initialize()
ListBox1.Clear
With Application.FileSearch
.NewSearch
.LookIn = Pfad
.SearchSubFolders = True 'wenn Unterordner Mit einbezogen werden sollen
.Filename = "*"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
ListBox1.AddItem Dir(.FoundFiles(i)) 'wenn du nur die dateinamen haben willst
Next i
End If
End With
End Sub

Vorsicht, wenn sich in einem Unterordner von [Pfad] Dateien befinden, werden sie in der Liste dargestellt, können aber nicht geöffnet werden, da der genaue Pfad nicht mehr bekannt ist.
Gruß Matthias

AW: Listbox

Peter

Hallo Peter,
Es hat sich ein kleines Problem ergeben:
Wenn ich in der Listbox keine Datei auswähle und den Button drücke, dann kommt "Laufzeit Fehler'94', unzulässige Verwendung von Null."
Meiner Meinung nach gibt es da ein Probleme mit MsgBox, denn die sollte ja dann eigentlich erscheinen.
Gruß Peter

AW: Listbox

22.05.2005 10:28:10

Hajo_Zi

Hallo Peter
if Listbox1.ListIndex-1 then
fn = ListBox1.Value
If fn = "" Then MsgBox "Bitte Datei auswählen!", vbExclamation
Workbooks.Open Pfad & "\" & fn
Unload Me
end if
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.

AW: Listbox

22.05.2005 10:49:42

Peter

Hallo Hajo
Danke für die Hilfe, jetzt funktioniert es.
Gruß Peter

Beliebteste Forumthreads (12 Monate)

Forumthread: Listbox

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread