Thema Datum  Von Nutzer Rating
Antwort
21.06.2019 13:21:12 Tim
NotSolved
21.06.2019 15:08:03 Gast3467
NotSolved
04.07.2019 15:48:08 Gast97149
NotSolved
Blau Datum suchen und Absatz einfügen
 04.07.2019 19:31:55 Gast1050
NotSolved

Ansicht des Beitrags:
Von:
Gast1050		 Datum:
04.07.2019 19:31:55		 Views:
448		 Rating:
     
Antwort:
  Ja
Thema:
Datum suchen und Absatz einfügen		 
Option Explicit
'
'diese Arbeitsmappe hat Verweis - Microsoft VbScript Regular Expressions
'
Sub TestString()
Dim regex As RegExp, oMatches As MatchCollection, oMatch As Match, oSubMatch As Match
Dim arrDate() As String, x As Integer
Dim strDate As String
Const C_Test As String = "Datum 12.12.2012 und Datum 31.10.2018 und 01.01.2000 zuletzt"
   
   Set regex = CreateObject("VBScript.RegExp")
   With regex
      .Pattern = "([0-2][0-9]|(3)[0-1])[-|.](((0)[0-9])|((1)[0-2]))[-|.]\d{4}"
      .Global = True
   End With
   If regex.Test(C_Test) Then
      Set oMatches = regex.Execute(C_Test)
      For Each oMatch In oMatches
         ReDim Preserve arrDate(x)
         arrDate(x) = oMatch.Value
         x = x + 1
      Next oMatch
   End If
   strDate = C_Test
   For x = LBound(arrDate) To UBound(arrDate)
      strDate = Replace(strDate, arrDate(x), arrDate(x) & vbLf)
   Next x

         MsgBox strDate

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.06.2019 13:21:12 Tim
NotSolved
21.06.2019 15:08:03 Gast3467
NotSolved
04.07.2019 15:48:08 Gast97149
NotSolved
Blau Datum suchen und Absatz einfügen
 04.07.2019 19:31:55 Gast1050
NotSolved