Gruppe
Funktion
Problem
Wie kann ich einen Zahlenstring mit Punkt als Dezimalseparator in eine Zahl umwandeln?
StandardModule: Modul1
Sub IsLike()
Dim dValue As Double
Dim sTxt As String, sEuro As String, sLike As String
dValue = 23.21
sEuro = Format(dValue, "0.00 €")
sLike = "*" & sEuro & "*"
sTxt = Range("A1").Value
If sTxt Like sLike Then
MsgBox "Im String enthalten!"
Else
MsgBox "Nicht im String enthalten!"
End If
End Sub