...hab gestern schonmal gepostet! ...hatte 7 Funktionen um Termine aus einer DB zu lesen...das auslesen funktionierte voll langsam!!! Habe gesten den tipp bekommen alle 7 Funktionen zu einer zusammen zu fassen!! ...(HAB ICH GEMACHT!)
...is aber immernoch zu langsam...
(Jemand muss doch Ahnung von schleifen haben!!!) ....ich bekomme es nämlich nich hin!!!
ODER ZUMINDEST EINEN VORSCHLAG WIE DAS AUSLESEN SCHNELLER GEHT!!!
################################################################################
CODE;
Function Wochentage()
On Error Resume Next
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Dim sSql1 As String
Dim sSql2 As String
Dim sSql3 As String
Dim sSql4 As String
Dim sSql5 As String
Dim sSql6 As String
Dim sSql7 As String
Dim SuchDatum1 As String
Dim SuchDatum2 As String
Dim SuchDatum3 As String
Dim SuchDatum4 As String
Dim SuchDatum5 As String
Dim SuchDatum6 As String
Dim SuchDatum7 As String
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "M:\Themen\PROJEKT\Organizer\Organizer\Daten.mdb"
cn.Open
rs.ActiveConnection = cn
rs.Source = "Termine"
SuchDatum1 = Worksheets("Wochenansicht").Cells(2, 5).Text
SuchDatum2 = Worksheets("Wochenansicht").Cells(16, 5).Text
SuchDatum3 = Worksheets("Wochenansicht").Cells(30, 5).Text
SuchDatum4 = Worksheets("Wochenansicht").Cells(2, 11).Text
SuchDatum5 = Worksheets("Wochenansicht").Cells(16, 11).Text
SuchDatum6 = Worksheets("Wochenansicht").Cells(30, 11).Text
SuchDatum7 = Worksheets("Wochenansicht").Cells(37, 11).Text
SuchDatum1 = Format(CDate(SuchDatum1), "\#mm\/dd\/yyyy\#")
SuchDatum2 = Format(CDate(SuchDatum2), "\#mm\/dd\/yyyy\#")
SuchDatum3 = Format(CDate(SuchDatum3), "\#mm\/dd\/yyyy\#")
SuchDatum4 = Format(CDate(SuchDatum4), "\#mm\/dd\/yyyy\#")
SuchDatum5 = Format(CDate(SuchDatum5), "\#mm\/dd\/yyyy\#")
SuchDatum6 = Format(CDate(SuchDatum6), "\#mm\/dd\/yyyy\#")
SuchDatum7 = Format(CDate(SuchDatum7), "\#mm\/dd\/yyyy\#")
sSql1 = "SELECT * FROM Termine WHERE Datum=" + SuchDatum1 + "ORDER BY Zeit"
sSql2 = "SELECT * FROM Termine WHERE Datum=" + SuchDatum2 + "ORDER BY Zeit"
sSql3 = "SELECT * FROM Termine WHERE Datum=" + SuchDatum3 + "ORDER BY Zeit"
sSql4 = "SELECT * FROM Termine WHERE Datum=" + SuchDatum4 + "ORDER BY Zeit"
sSql5 = "SELECT * FROM Termine WHERE Datum=" + SuchDatum5 + "ORDER BY Zeit"
sSql6 = "SELECT * FROM Termine WHERE Datum=" + SuchDatum6 + "ORDER BY Zeit"
sSql7 = "SELECT * FROM Termine WHERE Datum=" + SuchDatum7 + "ORDER BY Zeit"
'Montag
rs.Open (sSql1)
Worksheets("Wochenansicht").Cells(3, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(3, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(4, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(4, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(5, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(5, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(6, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(6, 3) = rs![Thema]
rs.Close
'Dienstag
rs.Open (sSql2)
Worksheets("Wochenansicht").Cells(17, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(17, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(18, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(18, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(19, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(19, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(20, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(20, 3) = rs![Thema]
rs.Close
'Mittwoch
rs.Open (sSql3)
Worksheets("Wochenansicht").Cells(31, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(31, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(32, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(32, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(33, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(33, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(34, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(34, 3) = rs![Thema]
rs.Close
'Donnerstag
rs.Open (sSql4)
Worksheets("Wochenansicht").Cells(3, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(3, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(4, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(4, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(5, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(5, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(6, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(6, 9) = rs![Thema]
rs.Close
'Freitag
rs.Open (sSql5)
Worksheets("Wochenansicht").Cells(17, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(17, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(18, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(18, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(19, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(19, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(20, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(20, 9) = rs![Thema]
rs.Close
'Samstag
rs.Open (sSql6)
Worksheets("Wochenansicht").Cells(31, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(31, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(32, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(32, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(33, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(33, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(34, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(34, 9) = rs![Thema]
rs.Close
'Sonntag
rs.Open (sSql7)
Worksheets("Wochenansicht").Cells(38, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(38, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(39, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(39, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(40, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(40, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(41, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(41, 9) = rs![Thema]
rs.Close
End Function
cu
Christin