ich habe einen bestimmte Variable Namens Typ die als String deklariert ist. Nun möchte ich bei allen Typen herausfinden, wo in dem Text die Zahlen 250 und grösser enthalten sind.
Wie kann ich das realisieren ?
Gruss
Holger Wächter
Sub tt()
Dim Typ As String
Dim i As Integer
Typ = "124578ertwz251kliu458"
For i = 1 To Len(Typ) - 2
If IsNumeric(Mid(Typ, i, 3)) Then
If Mid(Typ, i, 3) * 1 >= 250 Then
MsgBox "Zahl an Pos. " & i
End If
End If
Next i
End Sub
Sub tt()
Dim Typ As String
Dim i As Integer
Typ = "124578ertwz251kliu1000"
For i = 1 To Len(Typ) - 2
If IsNumeric(Mid(Typ, i, 3)) Then
If (Mid(Typ, i, 3) * 10 ^ (-IsNumeric(Mid(Typ, i + 3, 1)))) >= 250 Then
MsgBox "Zahl an Pos. " & i
End If
End If
Next i
End Sub