Prüfung bevor Code weiterlaufen kann
24.01.2006 20:29:27
Korl
ich lese mittlerweile unterschiedliche csv-Dateien in unterschiedlichen Projekten ein. Nun habe ich wieder solch ein Ding. :-(
Nun möchte ich hier prüfen, ob in "B1" eine Zahl steht oder diese im Textformat steht.
Ist eine Zahl vorhanden, kann der Code durchlaufen.
Habe mir gestern mit der Logig schon die Zähne ausgebrochen. :-(
Mein bescheidener Versuch sieht so aus:
Sub Prüfen_Text_oder_Zahl()
If IsNumeric(Range("B1")) = True Then
MsgBox "Dies ist keine Zanhl! Abbruch "
Exit Sub
MsgBox "Alles wird gut "
End If
End Sub
Kann mir wohl jemand einen Anstoß geben.
Gruß Korl