generische Suche in Array

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit ' Suchstring muss exakt ein Element des Array's sein Function IsInArray_1(stringToBeFound As String, arr As Variant) As Boolean IsInArray_1 = Not IsError(Application.Match(stringToBeFound, arr, 0)) End Function ' Suchstring muss Teil eines Elements des Array's sein Function IsInArray_2(stringToBeFound As String, arr As Variant) As Boolean IsInArray_2 = (UBound(Filter(arr, stringToBeFound)) > -1) End Function Sub Test() Dim Array_1 As Variant Array_1 = Array("pedro paul", "pedro maria", "maria", "jose", "jesus", "pepe", "pepe", "jose") MsgBox IsInArray_1("paul", Array_1) ' falsch MsgBox IsInArray_1("pedro paul", Array_1) ' richtig MsgBox IsInArray_2("paul", Array_1) ' richtig MsgBox IsInArray_2("pedro paul", Array_1) ' richtig End Sub

Hallo Werner,
wozu ein zweites Array mit mehr Informationen?
Verwende doch ein mehrdimensionales Array, in das du in der zweiten oder n-ten Dimension
(bis zu 32 möglich laut https://msdn.microsoft.com/de-de/library/02e7z943.aspx)
die Zusatzinformationen unterbringst!

Sub Mehrdimensionales_Array()
Dim arrName(1 To 10, 1 To 10) As Variant
arrName(1, 1) = "pedro paul"
arrName(1, 2) = "They lived in Rom."
arrName(1, 3) = "18.8.10"
arrName(2, 1) = "pedro maria"
arrName(2, 2) = "What is ..."
MsgBox arrName(2, 1) & " - " & arrname(2,2)
End Sub

Das mehrdimensionale Array ist zwar etwas aufwändiger beim Befüllen, aber die Suche nach einer Zeilennummer für ein zweites Array ist sicher nicht einfacher.
Über eine geschachtelte For-Schleife würde ich die Werte aus einer Tabelle abrufen.

Sub Mehrdimensionales_Array()
Dim arrName(1 To 10, 1 To 10) As Variant
Dim i As Long, J As Long
For i = LBound(arrName, 1) To UBound(arrName, 1)
For J = LBound(arrName, 2) To UBound(arrName, 2)
arrName(i, J) = ActiveSheet.Range(Cells(i, J)).Value
Next J
Next i
MsgBox arrName(2, 1)
End Sub

Ich hoffe dies kann dir bei deinen Anforderungen weiterhelfen.
Gruß
Jürgen

Hallo Forum,
nachdem sich bisher niemand mit einem brauchbaren Vorschlag gemeldet hat, in einem Array generisch einen Eintrag zu finden (und dabei auch die Position des Arrays zu erhalten), habe ich die Abarbeitung mittels einer DO-Loop gelöst. Die generische Suche hätte auch noch ein anderes Problem aufgeworfen: wie lange muss mein generischer Suchbegriff sein? Beispiel: welcher generische Begriff ist für "Beispiel" richtig: BEI oder BEISP?
Und was passiert, wenn der gesuchte Begriff nicht mit dem Anfang des gespeicherten Wertes identisch ist. Wenn die gesuchte Zeichenfolge irgendwo innerhalb des gespeicherten Wertes vorkommt, ist die Antwort "Wahr".
Mein Speicher mit den generischen Einträgen hat derzeit ca. 50 Begriffe. Ich vergleiche nun jeden dieser Begriffe in der gespeicherten Länge mit dem Begriff, für den ich einen generischen Eintrag suche. Und diesen Speicher sortiere ich nun zuerst absteigend. Damit sind längere generische Begriffe weiter oben, und in meinem Beispiel oben würde ich "BEISP" und nicht "BEI" finden
Allen, die mir geantwortet haben, oder sich über eine mögliche Lösung Gedanken gemacht haben, herzlichen Dank.
Ich habe meine Problem gelöst.
Gruß
Werner

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread