Funktion
05.08.2010 17:08:52
Alois G
Hallo Experten
Ich versuche mit einer Funktion Zahlen vom Text zu befreien, weil ich mit den Zahlen rechnen will.
Das klappt nur leider nicht ganz. Kann man das vielleicht hinkriegen. Bitte um eure Hilfe.
Public Function machspunkt2(zelle As Range, intI As Integer) As String
Dim objRegex As Object
Set objRegex = CreateObject("Vbscript.regexp")
With objRegex
.Global = True
.Pattern = "\d{0,}[,]{0,}\d{0,}"
machspunkt2 = .Execute(zelle.Text)(intI - 1)
End With
End Function
Code eingefügt mit Syntaxhighlighter 3.0
Beispiel: https://www.herber.de/bbs/user/70924.xlsm
Gruß Alois