ListBox
13.05.2005 21:08:54
Dani
Ich habe mit einer UserForm eine Abfrage gemacht. Die Auftragsformulare werden immer im selben Order gespeichert. Der Dateiname setzt sich aus der Kundennummer und dem Datum zusammen. Mit dieser Abfrage(Code unten) kann ich mittels Eingabe der Kundennummer bereits gespeicherte Aufträge suchen. Diese werden dann in eine ListBox aufgelistet. Jetzt möchte ich, dass wenn ich in der Liste einen Auftrag auswähle dieser geöffnet wird. Leider gelingt das mir nicht.
Private z!
Public dateiname
Public Dateien
Sub Dateisuche(Laufwerk, Dateien)
Dim tmp, Wdhlg, dateiname As String
On Error Resume Next
If Right(Laufwerk, 1) <> "\" Then Laufwerk = Laufwerk + "\"
dateiname = Laufwerk & Dateien
Application.StatusBar = dateiname
Suchen.ListBox1.AddItem (Dateien)
tmp = Dir()
End Sub
Sub search()
Dim Laufwerk$, Dateien$
Laufwerk = "C:\DATEN\Vergütungsauftrag\Ausland"
If Laufwerk = "" Then Exit Sub
Dateien = Suchen.zreingabe
Dateisuche Laufwerk, Dateien
End Sub
Gruss Dani