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
|