Function dateOrNumber(value As Variant) As String
Select Case VarType(value)
Case vbDate
dateOrNumber = "date"
Case vbDouble
dateOrNumber = "number"
End Select
End Function
Funktioniert auch ganz gut, nur gibt es manchmal ein Problem: Wenn ich nämlich manche Werte kopiere und wieder einfüge, dann wird bei einigen Datumszellen bei der Verwendung von Cell.Value... der Datentyp String benutzt, bei anderen wiederum Double o.Ä., was dann die oben genannte Funktion durcheinander bringt.
Schreibe ich den selben Wert nochmal von Hand in die betreffende Zelle, funktioniert alles einwandfrei.
Das Problem tritt auch nicht bei allen Zellen auf, sondern wie gesagt nur bei einigen (An der Formatierung leigt es nicht, ist bei allen auf "TT.MM.JJJJ"
Woran lönnte das liegen und wie könnte man es beheben?
MfG
Markus