Wenn Sie bereits registriert sind, aber Ihr Kennwort vergessen haben, klicken Sie bitte hier.

Bitte drücken Sie nicht mehrfach auf "Antwort speichern".

*Ist HTML- und/oder UBB-Code aktiviert, dann können Sie HTML und/oder UBB Code in Ihrem Beitrag verwenden.

T H E M A     A N S E H E N

HenryV Beiträge: 718 / 0 SolidWorks 2018 x64 SP4.0 Dell Precision 5820 Intel Xeon W-2125 4x4GHz NVIDIA Quadro P2000 5GB 32GB RAM 2x Dell U2412M, 24" TFT Windows 10 Enterprise x64 1703 Microsoft Office 365 ProPlus Microsoft Visual Studio Enterprise 2019

Hallo piston Hab im Netz mal eine Funktion gefunden und umgeschrieben -> http://www.j-walk.com/ss/excel/tips/tip62.htm Code: Function CellType(Zelle As String)     Application.Volatile     Dim c As Object     Set c = Range(Zelle)     Select Case True         Case IsEmpty(c)             CellType = "Leer"         Case Application.IsText(c)             CellType = "Text"         Case Application.IsLogical(c)             CellType = "Logik"         Case Application.IsErr(c)             CellType = "Fehler"         Case IsDate(c)             CellType = "Datum"         Case InStr(1, c.Text, ":") <> 0             CellType = "Zeit"         Case IsNumeric(c)             CellType = "Zahl"     End Select End Function Test-Aufrufen für Zelle "A1" Code: msgbox CellType("A1") Gruss Andreas ------------------ 21 ist nur die halbe Antwort.