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

Ich erhalte in der Zeile: ActiveSheet.Range("B1:B" & UBound(arr)).Value = arr(x, 1) deb Error, dass der Indes ausßerhalb des gültigen bereiches liegt.

Woran liegt das ?