Thema Datum  Von Nutzer Rating
Antwort
09.09.2017 13:39:17 Andre
NotSolved
09.09.2017 14:25:23 Gast24364
NotSolved
Rot Zellinhalt teilen mit regex
 09.09.2017 16:23:58 Gast96957
Solved
14.09.2017 12:58:22 Gast8816
NotSolved
09.09.2017 16:33:49 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Gast96957		 Datum:
09.09.2017 16:23:58		 Views:
663		 Rating:
     
Antwort:
 Nein
Thema:
Zellinhalt teilen mit regex		 
Option Explicit

Sub TestRegEx()
'Adressen z.B. in Spalte A
Dim c As Range, Arr() As Variant
With Columns("A")
   For Each c In .Range(.Cells(1), .Cells(.Cells.Count).End(xlUp))
      On Error Resume Next
      Arr = SplitAt(c)
      If Err.Number = 0 Then c.Offset(, 1).Resize(1, UBound(Arr)).Value = Arr
      On Error GoTo 0
   Next c
   
End With
End Sub

Function SplitAt(myCell As Range) As Variant
Dim oRegEx As New RegExp
Dim strPattern As String
Dim strValue As String
Dim objPosition As Object
Dim Hit, arrHit(1 To 2)
      strPattern = "[0-9]{5}"
      strValue = myCell.Value
      With oRegEx
         .Global = True
         .MultiLine = False
         .Pattern = strPattern
         If .Test(strValue) Then
            Set objPosition = oRegEx.Execute(strValue)
            Hit = objPosition(0).FirstIndex
            arrHit(1) = Left(strValue, Hit - 1)
            arrHit(2) = Mid(strValue, Hit + 1)
            SplitAt = arrHit
         End If
      End With

End Function

 

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
09.09.2017 13:39:17 Andre
NotSolved
09.09.2017 14:25:23 Gast24364
NotSolved
Rot Zellinhalt teilen mit regex
 09.09.2017 16:23:58 Gast96957
Solved
14.09.2017 12:58:22 Gast8816
NotSolved
09.09.2017 16:33:49 Mackie
NotSolved