Thema Datum  Von Nutzer Rating
Antwort
Rot array an funktion übergeben
17.08.2022 14:35:49 marv
Solved
17.08.2022 16:17:16 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
marv		 Datum:
17.08.2022 14:35:49		 Views:
1069		 Rating:
     
Antwort:
 Nein
Thema:
array an funktion übergeben 
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 ? 

 

 

 

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 array an funktion übergeben
17.08.2022 14:35:49 marv
Solved
17.08.2022 16:17:16 ralf_b
NotSolved