Vielen Dank BigBen! Deine Unterstützung ist Klasse :)
Ich bin schon fertig geworden bevor ich deinen Vorschlag gelsen habe kannst ja mal schauen:)
Dim Ausgabefeld, Eingabe, Eingabe2, s_Liste As String
Dim ErstesDatum, ZweitesDatum, d_Date, d_zwischendatum As Date
Dim i_DateCount As Integer
Private Sub btnAbfragen_Click(sender As Object, e As EventArgs) Handles btnAbfragen.Click
txtDatum1.Enabled = False
txtDatum2.Enabled = False
Eingabe = txtDatum1.Text
Eingabe2 = txtDatum2.Text
ZweitesDatum = CDate(Eingabe2)
ErstesDatum = CDate(Eingabe)
d_Date = ErstesDatum
Do While d_Date <= ZweitesDatum
d_zwischendatum = DateSerial(Year(d_Date), Month(d_Date), 13)
If d_zwischendatum >= ErstesDatum And d_zwischendatum <= ZweitesDatum And Weekday(d_zwischendatum, vbUseSystemDayOfWeek) = 5 Then
s_Liste = s_Liste & d_zwischendatum & Chr(10)
i_DateCount = i_DateCount + 1
End If
d_Date = DateAdd("m", 1, d_Date)
Loop
MsgBox("Es wurden " & CStr(i_DateCount) & " Daten gefunden: " & Chr(10) & s_Liste)
End Sub
Ich hab nun 2 Textboxen benutzt. Und ja ein paar Verfeinerungen aber es ist auf deiner Antwort aufgebaut!!
Danke nochmal. Ich versuch das alles nochmal im Lotus Notes Format.
|