Thema: Textmuster vergleichen

StandardModule: Modul1

Sub GetAnswer()
   Dim sPattern As String
   sPattern = "##.##.####"
   MsgBox FindPattern(Range("A1").Value, sPattern)
End Sub

Function FindPattern(sString As String, sPattern As String) As Boolean
   Dim iChar As Integer
   For iChar = 1 To Len(sString)
      If Mid(sString, iChar, Len(sPattern)) Like sPattern Then
         FindPattern = True
         Exit Function
      End If
   Next iChar
   FindPattern = False
End Function

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Vergleich