Ich habe folgenden Code:
Function
GetNo(s
As
String
)
As
String
With
CreateObject(
"vbscript.regexp"
)
.Pattern =
"(No[1-9][\.\d]+[a-z]?)"
GetNo = .Replace(s,
"$1"
)
End
With
End
Function
Sub
No_Ermitteln()
With
ThisWorkbook.Worksheets(myTb5).Activate
Range(
"A1:A"
& row + 1).Value = arrNo
ActiveSheet.Columns.AutoFit
End
With
With
ThisWorkbook.Worksheets(myTb5).Activate
arr = ActiveSheet.Range(
"A1:A"
& rowNo).Value
For
x = LBound(arr)
To
UBound(arr)
arr(x, 1) = GetNo(
CStr
(arr(x, 1)))
Next
ActiveSheet.Range(
"B1:B"
& UBound(arr)).Value = arr(x, 1)
End
With
End
Sub