Montag und Freitag aus KW bestimmen
20.12.2004 10:57:05
Harald
mit folgendem Code hole ich mir Daten, die gewisse Merkmale aufweisen und in einem Zeitrahmen liegen, in ein neues Blatt.
Sub subBF()
Dim lgQuell As Long
Dim lgZiel As Long
If Cells(1, 13) Or Cells(1, 14) = "" Then
MsgBox "Datum eintragen"
Exit Sub
End If
Sheets.Add.Name = "BF"
Sheets("Erfassung").Select
For lgQuell = 1 To Range("A500").End(xlUp).Row
If Cells(lgQuell, 2) Like "*M" And Cells(lgQuell, 10) Like ("BF")
And Cells(lgQuell, 3) >= Cells(1, 13) And Cells(lgQuell, 3) <= Cells(1, 14) Then
lgZiel = lgZiel + 1
Rows(lgQuell).Copy Sheets("BF").Rows(lgZiel)
End If
Next
End Sub
Der geneigte Spezialist erkennt sofort...Da kann man was verbessern. ;-))
Und zwar möchte ich erreichen, dass ich nur die gewünschte Kalenderwoche eingebe
und er mir daraus resultierend die relevanten Daten von Montag bis Freitag dieser KW kopiert.
Bisher muss ich Montag und Freitag der Kalenderwoche händisch eintragen.
Gruß
Harald