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:
855		 Rating:
     
Antwort:
 Nein
Thema:
Regular Expressions If / Else

Hi zusammen, 

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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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....:

?
1
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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