Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeichenfolge auf Inhalt überprüfen

Gruppe

Vergleich

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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