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

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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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
Anzeige
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
Anzeige
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.
Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige