Erkennung von Ziffern
Ziffern
Wer kann mit helfen. Danke. Carmen
Tabelle1 | ||||||||||||||||||||||
| ||||||||||||||||||||||
Tabelle1 | ||||||||||||||||||||||||||
| ||||||||||||||||||||||||||
Tabelle1 | ||||||||||||||||||||
|
'
' erste Ziffer in einem Text finden (Ziffer und Position)
'
Sub erste_zahl()
Dim s As Integer
Dim sp As Integer
Dim lg As Integer
Dim bGefunden As Boolean
For s = 2 To Range("A65536").End(xlUp).Row
bGefunden = False
lg = Len(Cells(s, 1))
sp = 0
Do While sp < lg
sp = sp + 1
If Asc(Mid(Cells(s, 1), sp, 1)) > 48 And Asc(Mid(Cells(s, 1), sp, 1)) < 59 Then
bGefunden = True
Exit Do
End If
Loop
If bGefunden = True Then
Cells(s, 2) = Mid(Cells(s, 1), sp, 1)
Cells(s, 3) = sp
Else: Cells(s, 2) = "keine Zahl"
End If
Next s
End Sub
Tabelle1 | ||||||||||||||||||||||||
| ||||||||||||||||||||||||