VBA Arraygröße dynmaisch erweitern ReDim

Hallo Forumsmitglieder,
ich habe ein Problem mit der dynamischen Erweiterung von einem Array
Mein Code sieht dabei folgendermaßen aus:

Sub Search()
Dim Suchbegriffe()
Dim newDim as Long
newDim = UBound(Suchbegriffe,1) + 1
ReDim Suchbegriffe(1 To newDim)
Suchbegriffe(1) = Array("*ausrund*", "*blend *", "*blending*")
Suchbegriffe(2) = Array("*deviation*", "*abweichung*", "*gaps*", "*lücken*")
Suchbegriffe(3) = Array("*weld*", "*verbindungselemente*", "*dxweld*")
Suchbegriffe(4) = Array("*data quality*", "*analyse*", "*check tool*")
Suchbegriffe(5) = Array("*usability*")
Suchbegriffe(6) = Array("*law extension*")
Suchbegriffe(7) = Array("*tailored blank*")
Suchbegriffe(8) = Array("*sketch*")
Suchbegriffe(9) = Array("*messen*", "*measurement*")

Ich bekomme dabei immer die Fehlermeldung "Index außerhalb des gültigen Bereichs"
Kann mir da jemand weiterhelfen wie ich das machen müsste?
Viele Grüße Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Chris;
eine Möglichkeit hat Rudi genannt, die andere ist ein Variant mit einem (bzw mehreren) Array(s) → Stichwort: Arrays in Arrays

Dim Suchbegriffe
Suchbegriffe = Array(Array("*ausrund*", "*blend *", "*blending*"), _
Array("*deviation*", "*abweichung*", "*gaps*", "*lücken*"), _
Array("*weld*", "*verbindungselemente*", "*dxweld*"), _
Array("*data quality*", "*analyse*", "*check tool*"), _
Array("*usability*"), _
Array("*law extension*"), _
Array("*tailored blank*"), _
Array("*sketch*"), _
Array("*messen*", "*measurement*"))

Mit Suchbegriffe(3) indizierst du das ganze 4.Teil-Array, also alle 3 Elemente, mit Suchbegriffe(3)(1) nur sein mittleres Element.
Du hast es übrigens nicht für nötig gehalten, mir hier, trotz Benachrichtigungswahl(!), zu antworten. Falls das deine gängige Praxis wdn soll, du nur antwortest, wenn du noch was willst, kann ich dich nur warnen…!
Luc :-?

With Sheets("Datenblatt") to_End = .Cells(.Rows.Count, 1).End(xlUp).Row For a = LBound(Suchbegriffe, 1) To UBound(Suchbegriffe, 1) For i = LBound(Suchbegriffe, 2) To UBound(Suchbegriffe, 2) Search = Suchbegriffe(a)(i) For j = 2 To to_End For sb = 0 To UBound(Search) If LCase(.Cells(j, 6).Value) Like Search(sb) Then Exit For Next sb If sb

With Sheets("Datenblatt") to_End = .Cells(.Rows.Count, 1).End(xlUp).Row For i = LBound(Suchbegriffe, 1) To UBound(Suchbegriffe, 1) Search = Suchbegriffe(i) For j = 2 To to_End For sb = 0 To UBound(Search) If LCase(.Cells(j, 6).Value) Like Search(sb) Then Exit For Next sb If sb

Beliebteste Forumthreads (12 Monate)

VBA Arraygröße dynmaisch erweitern ReDim

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Arraygröße dynmaisch erweitern ReDim

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread