VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte aus Zeichenfolgen filtern und berechnen

Gruppe

UDF

Bereich

Numerisch

Thema

Werte aus Zeichenfolgen filtern und berechnen

Problem

Aus Zeichenfolgen sollen Werte ausgelesen und berechnet werden.

Lösung

Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.




StandardModule: basMain

Function Wertgehalt(sTxt As String)
   Const csChars As String = "0123456789+-()*/^."
   Dim iChr As Integer
   Dim sFormula As String
   sTxt = WorksheetFunction.Substitute(sTxt, ".", "")
   sTxt = WorksheetFunction.Substitute(sTxt, ",", ".")
   For iChr = 1 To Len(sTxt)
      If InStr(csChars, Mid(sTxt, iChr, 1)) Then
         sFormula = sFormula & Mid(sTxt, iChr, 1)
      End If
   Next iChr
   Wertgehalt = Evaluate(sFormula)
End Function

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Numerisch