' Funktion zur Bestimmung des Datentyps einer Zelle
Public Function ErmittleDatentyp(myCell As Range) As String
    ' Gibt den Datentyp des Zellwerts zurück
    ErmittleDatentyp = TypeName(myCell.Value)
End Function