Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Textmuster vergleichen

Gruppe

Vergleich

Problem

Eine Zeichenfolge wird daraufhin überprüft, ob sie ein Datum im Format ##.##.#### enthält.

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

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