Super, vielen Dank.
Dies ist meine Umsetzung.
'Zelle in Zahl umwandeln
Select Case True
Case VBA.IsNumeric(ActiveCell.Value)
'*** Ist eine Nummer
Dim Zelle As Range
For Each Zelle In Selection
Zelle.Value = Zelle.Value * 1
Next Zelle
Case Else: Debug.Print "keine nummer"
MsgBox "Wert außerhalb Messbereich"
'*** Ist keine Nummer
End Select
Was ich noch nicht herausgefunden habe ist, wie man die VBA so schreiben kann wie du es machst! Also mit den Zeilenummern usw. das es aussieht wie im Excel
|