Private Sub Slider1_Change()
On Error GoTo ErrHand
Dim LastRow As Long
Dim Col1 As Range, Col4 As Range, Col5 As Range
Dim EndDate As Date
Dim StartDate As Date
Dim Scanartikel As Long
Dim Verbrauch As Variant
Scanartikel = Right(Artikel, 4)
StartDate = Format(Now - (Slider1.Value * 7), "dd.mm.yyyy")
EndDate = Format(Now, "dd.mm.yyyy")
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Set Col1 = Sheets("Warenbewegung").Range("A3:A" & LastRow)
Set Col4 = Sheets("Warenbewegung").Range("D3:D" & LastRow)
Set Col5 = Sheets("Warenbewegung").Range("E3:E" & LastRow)
Verbrauch = Application.WorksheetFunction.SumIfs(Col5, Col4, ">=" & StartDate, Col4, "<=" & EndDate, Col1, Scanartikel, Col5, "<1")
Paletten.Value = VerbrauchOH / -1
Label9.Visible = True
Verbrauchsgrenze.text = EndDate & " - " & Date
Set Col1 = Nothing
Set Col4 = Nothing
Set Col5 = Nothing
ErrHand:
If Err.Number <> 0 Then
msg = "Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & Chr(13) & "Error Line: " & Erl & Chr(13) & Err.Description
43: MsgBox msg, , "Error", Err.HelpFile, Err.HelpContext
Exit Sub
End If
End Sub