Forum:Excel
Thema:Variable auf Basis der ausgewählten Zelle deklarieren
Möchten Sie sich registrieren?
Wer darf antworten? Registrierte Benutzer können Beiträge verfassen.
Hinweise zur Registrierung Sie müssen registriert sein, um Beiträge oder Antworten auf Beiträge schreiben zu können.
Ihr Benutzername:
Ihr Kennwort:   Kennwort vergessen?
Anhang:    Datei(en) anhängen  <?>   Anhänge verwalten  <?>
Grafik für den Beitrag:                                                
                                                       
Ihre Antwort:

Fachbegriff
URL
Email
Fett
Kursiv
Durchgestr.
Liste
*
Bild
Zitat
Code

*HTML ist AUS
*UBB-Code ist AN
Smilies Legende
Netiquette

10 20 40

Optionen Smilies in diesem Beitrag deaktivieren.
Signatur anfügen: die Sie bei den Voreinstellungen angegeben haben.

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.