Brauche ein Programm zur Ermittlung des 1. numerischen Zeichens in einer Zelle.
Danke!
Sub erste_ziffer()
For i = 1 To Len(ActiveCell)
If IsNumeric(ActiveCell.Characters(i, 1).Text) Then
MsgBox ActiveCell.Characters(i, 1).Text
Exit Sub
End If
Next i
End Sub