Gruppe
Allgemein
Problem
Über die VBA-Like-Funktion soll geprüft werden, ob eine bestimmte Zeichenfolge im Wert von Zelle A1 enthalten ist, wobei die Zeichenfolge als Variable zu übergeben ist.
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