Von |
edie |
Am |
05. November 2007 um 08:21:24 |
Frage |
Hallo Zusammen,
nachfolgende VBA-Code ließt Daten aus einer Access-Datei in eine UseForm ListBox in Excel ein.
Nun möchte ich gerne das gleiche nur aus einer Excel-Datei. Wie verändere ich den Code? In der Excel-Datei habe ich die gleiche Spaltenanzahl und Namen.
Dim ADOCnn As New ADODB.Connection, Tabelle As New ADODB.Recordset
Private Sub btn_Abbrechen_Click() ADOCnn.Close Set ADOCnn = Nothing Unload UserForm1 End Sub
Private Sub btn_Ändern_Click() If Me.lst_Namen.Value Then Tabelle.MoveFirst Tabelle.Find "Nr=" & Me.lst_Namen.Column(0) Tabelle!Name = Me.txt_Nachname Tabelle!Vorname = Me.txt_Vorname Tabelle.Update ListeFüllen End If End Sub
Private Sub btn_Einfügen_Click() Dim Zähler As Long Tabelle.MoveFirst While Tabelle.EOF = False Zähler = Zähler + 1 Cells(Zähler, 1) = Tabelle!Vorname Cells(Zähler, 2) = Tabelle!Name Tabelle.MoveNext Wend End Sub
Private Sub btn_Hinzufügen_Click() If Me.txt_Nachname <> "" And Me.txt_Vorname <> "" Then Tabelle.AddNew Tabelle!Name = Me.txt_Nachname Tabelle!Vorname = Me.txt_Vorname Tabelle.Update ListeFüllen End If End Sub
Private Sub btn_Löschen_Click() If Me.lst_Namen.Value Then Tabelle.MoveFirst Tabelle.Find "Nr=" & Me.lst_Namen.Column(0) Tabelle.Delete ListeFüllen End If End Sub
Private Sub lst_Namen_Change() Me.txt_Nachname = Me.lst_Namen.Column(1) Me.txt_Vorname = Me.lst_Namen.Column(2) End Sub
Private Sub UserForm_Activate() Dim Namen() As String, Zähler As Long ADOCnn.Provider = "Microsoft.Jet.OLEDB.4.0" ADOCnn.Open ("c:\Dokumente\gehalt.mdb") Tabelle.Open "Mitarbeiter", ADOCnn, adOpenStatic, adLockOptimistic ListeFüllen End Sub
Private Sub ListeFüllen() Dim Namen() As String, Zähler As Long ReDim Namen(0 To Tabelle.RecordCount - 1, 0 To 2) Tabelle.MoveFirst For Zähler = 0 To Tabelle.RecordCount - 1 Namen(Zähler, 0) = Tabelle!Nr Namen(Zähler, 1) = Tabelle!Name Namen(Zähler, 2) = Tabelle!Vorname Tabelle.MoveNext Next Me.lst_Namen.List() = Namen End Sub
Hat jemand eine Idee oder Beispiel wie man Daten einließt in eine UserForm ListBox aus einer XLS?
Vielen Dank im Voraus. Grüße |
|