Hallo und guten morgen noch einmal VBA experten.
Ich habe eine frage zu einem code.
ich habe in Spalte B Zahlen und textwerte.Diese möchte ich gerne "erkennen".
Dazu habe ich mir unten stehen den code geschrieben der aber leider nicht funktioniert.
Aus folgendem grund.
Meine Zellen in Spalte B sind und nmüssen als text formatiert sein.
Wenn ich jetzt in meiner schleife die zellen durchgehe sind die werte bei isnumber immer Falsch und werden als text erkannt. Also "478474742" IST TEXT UND "sdi8s89sdl" ist text.
Wie erreiche ich es das der erste Wert("478474742") als Zahl erkannt wird ?
With myworkbook.Worksheets("daten")
For x = 4 To .Cells(.Rows.Count, 2).End(xlUp).Row
MsgBox WorksheetFunction.IsNumber(.Cells(x, 2))
test = .Cells(x, 2)
If WorksheetFunction.IsNumber(.Cells(x, 2)) Then
MsgBox ("OK")
Else
MsgBox ("nix")
End If
Next
End With
Vielen dank noch einmal an alle !
gruß Chris