Nur Zahl aus String

Sub Test() Dim Var1 As Variant, I As Byte Var1 = ActiveCell.Value For I = 1 To 100 If IsNumeric(Right(Mid((Var1), 1, I), 1)) Then MsgBox (Right(ActiveCell.Value, I + 2)) Exit Sub End If Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function inZahl(sText As String) Dim i As Integer For i = 1 To Len(sText) If IsNumeric(Mid(sText, i, 1)) Or Mid(sText, i, 1) = "," Then _ inZahl = inZahl & Mid(sText, i, 1) Next inZahl = inZahl * 1 End Function

Sub InStrZahlen(ByRef strString As String) Dim Regex As Object Set Regex = CreateObject("Vbscript.Regexp") With Regex .IgnoreCase = True .Pattern = "[\s?a-zäöüß:]" .Global = True strString = .Replace(strString, "") End With Set Regex = Nothing End Sub Sub TestNurDieZahl() Dim strVar1 As String strVar1 = ActiveCell.Text InStrZahlen strVar1 If IsNumeric(strVar1) Then MsgBox strVar1 * 1 End If End Sub

Sub InStrZahlen(ByRef strString As String) Dim Regex As Object Dim KommaOderPunkt As String KommaOderPunkt = IIf("0.5" * 2 = 1, ".", ",") Set Regex = CreateObject("Vbscript.Regexp") With Regex .IgnoreCase = True .Pattern = "[^0-9,.]" .Global = True strString = .Replace(strString, "") .Pattern = "[.,]" strString = .Replace(strString, KommaOderPunkt) End With Set Regex = Nothing End Sub Sub TestNurDieZahl() Dim strVar1 As String strVar1 = ActiveCell.Text InStrZahlen strVar1 If IsNumeric(strVar1) Then MsgBox strVar1 * 1 End If End Sub

Hallo,
habe mal noch etwas rumexperimentiert.
Kommt im Text auch noch Zahlen vor funzt es nicht
Kommt als Dezimaltrennzeichen der Punkt vor funzt es nicht
Kommen Zahlen ohne Dezimaltrennzeichen vor funzt es auch nicht.
Hier eine Lösung die mit diesen Optionen fertig werden sollte.

Sub InStrZahlen(ByRef strString As String)
Dim Regex As Object, objMatch As Object
Dim KommaOderPunkt As String

KommaOderPunkt = IIf("0.5" * 2 = 1, ".", ",")
Set Regex = CreateObject("Vbscript.Regexp")

With Regex
    .IgnoreCase = True
    .Global = True
    .Pattern = "\d{1,}.\d{1,}"
     
     Set objMatch = .Execute(strString)
     
     If objMatch.Count > 0 Then
      strString = objMatch(0)
      strString = Replace(strString, ",", KommaOderPunkt)
     Else
      strString = ""
     End If
     
End With
Set Regex = Nothing
End Sub

Sub TestNurDieZahl()
Dim strVar1 As String

strVar1 = ActiveCell.Text
InStrZahlen strVar1

If IsNumeric(strVar1) Then
 MsgBox strVar1 * 1
End If

End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nur Zahl aus String

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread