AW: Benutzerdefinerter (Datums) Filter
11.07.2022 16:39:21
Oberschlumpf
Hi Mike,
hier, bitte schön, im Klassenmodul...
Option Explicit
Private Sub Workbook_Open()
sbCalWeekPlus1 CDate(InputBox("Bitte Datum eingeben", "Datum", Date))
' sbCalWeekPlus1 Date
End Sub
und im allgemeinen Modul...
Option Explicit
Sub sbCalWeekPlus1(ByVal datum As Date)
Dim liKW_DIN As Integer, lloRow As Long
Dim lloStart As Long, lloEnd As Long
liKW_DIN = DatePart("ww", datum, vbMonday, vbFirstFourDays)
Rows("2:" & Cells(3, 2).CurrentRegion.Rows.Count + 1).EntireRow.Hidden = False
For lloRow = 2 To Cells(Rows.Count, 3).End(xlUp).Row Step 11
If Range("C" & lloRow).Value = liKW_DIN Then
lloStart = lloRow - 1
lloEnd = lloRow + 22
Rows("2:" & lloStart).EntireRow.Hidden = True
If lloEnd
Hilfts?
Ciao
Thorsten