Range + Zahlen
24.03.2016 15:17:44
Franz
in einer Spalte mit Datumsangaben gibt es immer mehrere aufeinanderfolgende, ab und zu gibt es einen Sprung. Ich versuche diese Sprünge zu ermitteln:
Sub test()
Dim rg
For Each rg In Range("Datum")
If rg.Value rg.Offset(-1, 0).Value - 1 Then
MsgBox rg
End If
Next
End Sub
Grüße
Franz