Thema Datum  Von Nutzer Rating
Antwort
Rot Regular Expressions If / Else
16.08.2022 13:47:26 lmrdrd
Solved

Ansicht des Beitrags:
Von:
lmrdrd
Datum:
16.08.2022 13:47:26
Views:
259
Rating: Antwort:
 Nein
Thema:
Regular Expressions If / Else

Hi zusammen, 

wie kann ich ein If / Else Statement zu hinzufügen? 

arr = Range("A1:A" & row).Value

    row1 = 1
    
    For Each text2 In arr
   
        With regEx

            .Pattern = "(No[1-9][\.\w\d]+)"
            
        Set mc2 = regEx.Execute(text2)
        Dim item2 As Variant
        
        Debug.Print mc2.count
        Debug.Print text2
        countResult = mc2.count

    For Each item2 In mc2

                ActiveSheet.Range("B" & row1).Value = item2

                row1 = row1 + 1
                
                Next item2
      End With
      
    Next text2

Das Ergebnis sieht so aus:

    A                                             B                     C                     D                         E

1   testabcd_No2231             No2231

2   testabcd_No3256             No3256

3   testabcd_No5934             No5934

4   testabcd                           No2231

5   testabcd_No2231             

 

Aber eigentlich hätte ich gerne, wenn es kein Matsch gibt, dass die Zeile frei gelassen wird:

    A                                             B                     C                     D                         E

1   testabcd_No2231             No2231

2   testabcd_No3256             No3256

3   testabcd_No5934             No5934

4   testabcd

5   testabcd_No2231             No2231

 

Hatte an so etwas gedacht, aber bekomme es nicht hin....:

If mc2.count > 0 ThenActiveSheet.Range("B" & row1).Value = item2 Else: ActiveSheet.Range("B" & row1).Value = "" End If

 


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
Rot Regular Expressions If / Else
16.08.2022 13:47:26 lmrdrd
Solved