HERBERS Excel-Forum - die Beispiele

Thema: Werte aus Zeichenfolgen filtern und berechnen

Home

Gruppe

UDF

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

Lohnsteuerberechnung (UDF, XLM-Datei, Webabfrage) Spezialfilter Alphanumerische Kriterien
Ergebnis UDF ändert, wenn Tabelle deaktiviert wird UDF soll nicht auf Daten anderer Dateien zugreifen
vor Ausführung einer UDF Zwischenspeicher "retten& UDF - Argument ohne " " übergeben möglic
Alphanumerische Werte aus 1 Spalte auslesen Alphanumerische Nummern in TXT Datei speichern
Marko bei numerischer Zelländerung UDF- Beschreibung
Automatische alphanumerische Numerierung Berechnungsdauer einer UDF messen
Hintergrudfarbe ändern??? Finde keine Lösung :-( Probleme mit IsNumeric, Code per UDF
Numerisches Format UDF mittels Ereignis aktualisieren?
UDF, Minuszeichen vor Zahl auswerten nach Worksheet_Change werden UDF nicht ausgewertet
Zahlenliste wird alphanumerisch sortiert Excel anhalten bei UDF
UDF Numerischer Wert aus Textfeld
UDF, Rückgabewert Text anstelle Zahl Aufruf einer UDF, Fehler Objekt erforderlich
SQL in UDF Numerisch?
textBox1 prüfen ob numerische eingabe Extrahierung von alphanumerischen Zeichen aus Ansc
Alphanumerischer Wert - Buchstaben ausschneiden alphanumerisch sortieren mit VBA
Numerische bibliothek Daten numerisch auslesen und ordnen!
Werte einer UDF werden nicht aktualisiert Numerischen Wert in String erkennen
UF: Numerische Dateneingabe überlistet Makro, ab der ersten Numerischen Zahl ausschneiden
Daten Alphanumerisch sortieren Spaltenbezeichnung von numerisch auf alphanumm.
nur numerisch werte in textbox Aufruf von UDF mit Array
Werte alphanumerisch sortieren - ohne VBA sondern Erstes Numerisches Zeichen in Zeichenkette
TextBox numerisch UDF: Semikolon vs Komma
numerische Eingabe alphanumerische zahlen umwandeln
Numerische Zellinhalt in ein Datum umwandeln Datensatzprüfung numerisch/alphanumerisch in Makro
alphanumerische Werte: benutzerdefiniertes Format UDF, erkennen in welcher Zelle die UDF steht