mit folgendem Code würde ich gerne das Datum in wksParams.cells(31,4).value (formatiert als Datum) mit dem Datum im arr() Spalte 1 vergleichen. Wenn das Datum im Array Spalte 1 größer ist soll in Array Spalte 2 bei der entsprechenden Position "OK" geschrieben werden. Nun bekomme ich immer einen Typenkonflikt.
Kann mir evtl. wer weiterhelfen?
Sub Arrays()
Dim arr() As Variant
Dim i As Long
Dim wksBlatt As Worksheet
Dim wksParamas As Worksheet
Set wksBlatt = ThisWorkbook.Worksheets("Zeitraum")
Set wksParams = ThisWorkbook.Worksheets("Parameter")
With wksBlatt
arr = .Range("A3:G369")
For i = LBound(arr) To UBound(arr)
If CLng(arr(i, 1)) >= CLng(wksParams.Cells(31, 4).Value) Then
arr(i,2) = "OK"
End If
Next i
End With
End Sub
Hier eine Beispielmappe: https://www.herber.de/bbs/user/111026.xlsx
Danke & VG
Anton