Sub AdjustmentData()
Dim wsh As Worksheet, wshSearch As Worksheet
Dim rngSearch As Range
Dim datDate As Date, datDateResult As Date
Dim sGroup As String, sProd As String
Dim rng As Range, rngResult As Range
Set wsh = Tabelle1
Set wshSearch = Tabelle2
Set rngSearch = wshSearch.UsedRange
Application.ScreenUpdating = False
For Each rng In wsh.UsedRange.Rows
If rng.Row > 1 Then
datDate = rng.Cells(1, 1).Value
sProd = rng.Cells(1, 3).Value
If wshSearch.FilterMode Then
rngSearch.AutoFilter
End If
rngSearch.AutoFilter Field:=1, Criteria1:=sProd
rngSearch.AutoFilter Field:=34, Criteria1:="=AA", Operator:=xlOr, Criteria2:="=AB"
For Each rngResult In rngSearch.SpecialCells(xlCellTypeVisible).Rows
If rngResult.Row > 1 Then
datDateResult = rngResult.Cells(1, 44).Value + rngResult.Cells(1, 45).Value
If datDate <= DateAdd("s", 3600, datDateResult) And datDate >= DateAdd("s", -3600, datDateResult) Then
rng.Cells(1, 1).Value = datDateResult
End If
End If
Next
If wshSearch.FilterMode Then
rngSearch.AutoFilter
End If
End If
Next
Application.ScreenUpdating = True
End Sub