Datum bestimmter Wochentage in einem Zeitraum bere
11.04.2013 16:32:20
Beginner37
ich hoffe es kann jemand helfen. Ich versuche schon seit Tagen folgende Aufgabe zu bewältigen. Es soll aus einem gegebenen Zeitraum das Datum des jeweiligen Wochentags in einer zweiten Tabelle eingetragen werden.
Ein Beispiel für die erste Zeile von Tabelle 1:
in Zelle A1 steht der Ab Zeitraum 05.02.2013 und in Zelle B1 der Bis Zeitraum in Zelle C1 steht der Montag (gemäß Wochentags DIN also 1) in der Zelle E1 steht der Mittwoch (also 3).
(In der nachfolgenen Zeile steht dann beispielsweise der Dientag (D2) und der Donnerstag (F2))
Von dem jeweiligen Wochentag Montag und Mittwoch soll das jeweilige Datum in die Tabelle2 eingetragen werden (also für sämtlich Montage und Miwoche in dem geannten Zeitraum).
Laut Recherche soll in access nachfolgender Code funktionieren (habe kein access) . Habe versucht mit Ado weiterzukommen habe jedoch keinen Erfolg gehabt. Kann der unten stehende VBA access Code auf Excel angepasst werden?
Danke im voraus.
Private Sub Befehl5_Click()
Dim i As Date, j As Date, k As Date, d As Integer, z As Integer
Dim rs As Recordset
Set rs = DBEngine(0)(0).OpenRecordset("Tabelle1", dbOpenDynaset)
i = Me!Text1.Value
j = Me!Text3.Value
If i > j Then
MsgBox "Fehlerhafte Eingabe", vbOKOnly + vbCritical, "FEHLER"
Exit Sub
End If
d = DateDiff("d", i, j)
For z = 0 To d
If ((Weekday(DateAdd("d", z, i)) = 1) Or (Weekday(DateAdd("d", z, i)) = 7)) Then
rs.AddNew
rs!test = DateAdd("d", z, i)
rs.Update
End If
Next
rs.Close
Set rs = Nothing
End Sub