Hallo zusammen,
ich habe in einer Liste Daten stehen, die aus Text und Ziffern bestehen.
Die Ziffern stehen durchgängig am Ende und sind immer durch einen Punkt getrennt.
Die Ziffern sind zwischen 1 bis 4 stellig.
z.B.
Test.27
Test.1
Test.124
Test.4096
Aus diesen Daten möchte ich per VBA in einer Schleife nur die Ziffern auslesen.
Dazu verwende ich den folgenden Code:
For Zähler = 1 To Meldg - RowGrEnde - 1
iRow = Range("E1").Offset(RowGrEnde + Zähler, 0).Value
For Zähler1 = 1 To Meldg - RowGrEnde - 1
If Right(Range("F1").Offset(RowGrEnde + Zähler1, 0).Value, _
Len(Range("F1").Offset(RowGrEnde + Zähler1, 0).Value) - _
Application.WorksheetFunction.Find(".", _
Range("F1").Offset(RowGrEnde + Zähler1, 0).Value)) = iRow Then
If RowGrEnde + Zähler1 größer RowGrEnde + GrFeld Then
Range("BD1").Offset(RowGrEnde + Zähler, 0).Value = RowGrEnde + Zähler1
Exit For
End If
End If
Next Zähler1
Next Zähler
Gelegentlich erhalte ich eine Fehlermeldung, dass die Find Function nicht ausgeführt werden kann.
Was mache ich falsch? Oder kennt jemand eine andere Methode zum Auslesen von Ziffern?
Gruß
Siegfried