' 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