---

Hallo zusammen,

da das Forum scheint eingeschlafen zu sein möchte ich es aufwachen.
Ich habe seiner Zeit ein VBA-Makro für Excel geschafft, welches die Werte der bestimmten Variable aus einem Text rauskriegt.

Code:

---

Option Explicit

Function GetNumber(strText As Variant, sVariable As String) As Variant

Dim oRegex As Object, oMatches As Object, oM As Object
Dim vValue As Variant

Set oRegex = CreateObject("VBScript.Regexp")

oRegex.Pattern = "(" & sVariable & "=" & ")" & _
    "(\d+(?:[\.\,]\d+)?|$|\s)"

oRegex.Global = True

Set oMatches = oRegex.Execute(strText)

Select Case True
    Case oMatches.Count = 1
        If oMatches(0).submatches.Count = 2 Then
            vValue = oMatches(0).submatches(1)
        Else
            vValue = ""
        End If
       
        If IsNumeric(vValue) Then GetNumber = CDbl(vValue) Else GetNumber = vValue
       
    Case oMatches.Count = 0
        GetNumber = "[#NM]"
    Case oMatches.Count > 1
        GetNumber = "[#O]"
End Select

Set oRegex = Nothing
Set oMatches = Nothing

End Function

---

So kann die Funktion aufgerufen werden:

Code:

---

Sub Beispiel()

   MsgBox GetNumber("Wert X=1050", "X")

End Sub

---

oder als Excel-Formel wenn in der Zelle A1 steht ein Text mit der Variable folgende Formel:

Code:

---

=GetNumber(A1;"X")

---

mfG
Andreas

[Diese Nachricht wurde von AndreasDEU am 30. Nov. 2017 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP