Mehrspaltige Listbox füllen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox TextBox


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Mehrspaltige Listbox füllen
von: Philip
Geschrieben am: 24.05.2002 - 16:24:01

Hallo zusammen!
ich habe ein kleines Problem. Ich möchte Daten aus Access (Abfrage SQL) in einer Listbox in ein Userform unter Excel einfügen.
Ich kann 1 Spalte einfügen, haber ich schaffe es nicht mit mehrere.
Vielen Dank für Ihre Hilfe !

Philip;-)

Stand der Macro:

Private Sub TEST()
Dim DB As Database
Dim Rs As Recordset
Dim SQL As String
Dim V As String
Dim Anz As Variant
Set DB = DBEngine.OpenDatabase("C:\DATEN\DB.MDB")
Let V = TextBoxFAZID.Text
If V = "" Then GoTo Err
SQL = "SELECT * From OBJEKT where FAZ_ID = " & V
Set Rs = DB.OpenRecordset(SQL)
If Rs.EOF Then GoTo Err 'kein DS gefunden
With Rs
.MoveLast
Anz = .RecordCount
.MoveFirst
End With

For i = 1 To Anz
ListBoxOBJLISTE.AddItem ("???") 'PROBLEM
Next i

Rs.Close
DB.Close
Exit Sub
Err:

End Sub

nach oben   nach unten

Re: Mehrspaltige Listbox füllen
von: ich !
Geschrieben am: 24.05.2002 - 16:54:40

Ok, ...ist erledigt !
Danke trozdem

Gruß,
Philip.


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Mehrspaltige Listbox füllen "