---

Hallo Forum,

ich bin Neueinsteiger in VBA und habe Fragen zum ARRAY.
Ich habe im Netz gesucht, aber da ich wohl immer die falschen Suchbegriffe angebe, bin ich nicht fündig geworden.

Bei folgendem ARRAY möchte ich mit dem Suchbegriff "St.Jürgen" die Identnummer 120 erhalten.

Sub BJ_array1()
  Dim MyArray(5, 1)
    MyArray(0, 0) = 101
    MyArray(0, 1) = "Innenstadt"
    MyArray(1, 0) = 120
    MyArray(1, 1) = "St.Jürgen"
    MyArray(2, 0) = 150
    MyArray(2, 1) = "Moisling"
    MyArray(3, 0) = 210
    MyArray(3, 1) = "Buntekuh"
    MyArray(4, 0) = 503
    MyArray(4, 1) = "St.Lorenz Süd"
    MyArray(5, 0) = 160
    MyArray(5, 1) = "St.Lorenz Nord"
End Sub

Besten Dank für Eure Geduld

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Björn,

eine Möglichkeit:

Code:

---

For r = LBound(MyArray) To UBound(MyArray)
    If MyArray(r, 1) = "St.Jürgen" Then Debug.Print MyArray(r, 0)
Next

---

Gruss, Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nancy,

danke für die Schnelle Hilfe.
und sogleich folgt eine weitere Frage.

Da ich mein Array aus einer Oracle Datenbank bestücken möchte und die Größe bei der ersten Abfrage noch nicht ersichtlich ist, dachte ich mit REDIM eine Lösung gefunden zuhaben.
Das Programm erweitert mein Array auch auf die richtige Größe überschreibt aber bei jedem REDIM den alten Inhalt.

Sub BJ_array2()
  Dim MyArray()
  Dim i As Integer
  'SQL Abfrage aus Oracle
  'Ergebnis  Index, 101, "Innenstadt"
  i = 0
  ReDim MyArray(i, 1)
    MyArray(i, 0) = 101
    MyArray(i, 1) = "Innenstadt"
 
  'SQL Abfrage aus Oracle
  'Ergebnis  Index, 120, "St.Jürgen"
  i = i + 1
  ReDim MyArray(i, 1)
    MyArray(i, 0) = 120
    MyArray(i, 1) = "St.Jürgen"

'usw.
End Sub

Gruß Björn

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Björn,

Wie wäre es mit "ReDim Preserve", da bleiben deine vorhanden Daten nicht überschrieben.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Carsten,

besten Dank.
Mit ReDim Preserve funktioniert es.
Ich habe das die Tabelle nur "umdrehen" müssen.

Gruß Björn

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP