Sehe gerade das deine Frage evtl. auf etwas anderes abziehlt die mit der Indizierung zu tun hat.
Dann würde ich es ehern so lösen:
For i = 0 To UBound(Information)
If IsDate(Information(i)) Then
ActiveSheet.Cells(zeile, 1 + i) = CDate(Information(i))
Else
ActiveSheet.Cells(zeile, 1 + i) = Information(i)
End If
Next
|