Array durchsuchen
30.05.2005 11:41:47
MikeS
ich suche nach einer Möglichkeit (ohne Schleife), ein eindimensionales Array nach einem Wert zu durchsuchen (ähnlich der Find-Methode bei Zellbereichen).
Mein Codeauszug:
'Arrays neu dimensionieren
ReDim arrQuelle(c_lngStartzeile To lngEndzeile)
ReDim arrZiel(c_lngStartzeile To lngEndzeile2)
'wsQuelle ist mein Quellblatt (arrQuelle)
'wsZiel ist mein Zielblatt (arrZiel)
'in beiden Arrays werden eindeutige Schlüssel, der beiden Tabellen,
'bestehend aus Bel+Pos (z.B. "100/1") eingelesen.
With wsQuelle
For lngAktZeile = c_lngStartzeile To lngEndzeile
arrQuelle(lngAktZeile) = .Cells(lngAktZeile, c_ColBel) & "/" & .Cells(lngAktZeile, c_ColPos)
Next lngAktZeile
End With
With wsZiel
For lngAktZeile = c_lngStartzeile To lngEndzeile2
arrZiel(lngAktZeile) = .Cells(lngAktZeile, c_ColBel) & "/" & .Cells(lngAktZeile, c_ColPos)
Next lngAktZeile
End With
'Nun möchte ich jeden Wert des arrQuelle im arrZiel suchen
'So, wie nachfolgend, klappts natürlich nicht
For lngAktZeile = c_lngStartzeile To lngEndzeile
Suchwert = arrQuelle(lngAktZeile)
lngFundzeile = Application.Match(Suchwert, arrZiel, 0)
If lngFundzeile > 0 Then
'tu dies
Else
'tu das
End If
lngFundzeile = 0
Next lngAktZeile
Vielleicht weiß jemand Rat, oder muß ich mein arrZiel auch mittels Schleife
nach dem Suchwert aus arrQuelle durchlaufen?
Vielen Dank
MikeS