ich lasse mit folgendem code Datensätze auslesen!!
Sub Termine_Heute_aus_Access_lesen()
On Error Resume Next
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Dim sSql As String
Dim Datum As String
Dim TestFeld(2, 8)
Dim dynaZeile As Single
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = ActiveWorkbook.Path & "\Daten.mdb"
cn.Open
rs.ActiveConnection = cn
rs.Source = "Termine"
Worksheets("Heute").lst_Heute.ColumnCount = 2
Worksheets("Heute").lst_Heute.ColumnWidths = 70
Datum = str(Date)
sSql = "SELECT * FROM Termine WHERE Datum = DATE() ORDER BY Zeit"
rs.Open (sSql)
For dynaZeile = 0 To 5
TestFeld(0, dynaZeile) = rs![Zeit] & " Uhr " & vbTab
TestFeld(1, dynaZeile) = rs![Dauer] & " Min " & vbTab & rs![Thema]
rs.MoveNext
Next dynaZeile
Worksheets("Heute").lst_Heute.Column() = TestFeld
rs.Close
End Sub
Jetzt muss ich die Anzahl der Datensätze ermitteln um "dynaZeile" auch wirklich dynamisch gestalten zu können!!
also: --> For dynaZeile = 0 To "ANZAHL DER DATENSÄTZE"
Hoffe jemand hat´ne Idee!!!!!
Gruss Alex