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:
1619
Rating: Antwort:
 Nein
Thema:
array an funktion übergeben
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
28
29
30
31
32
33
34
35
36
37
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