Verständnissfrage Arrays
21.03.2014 09:43:55
Marcel
ich habe folgenden Code geschrieben
Private Sub cmdbtn_search_Click()
Dim a_myvalues As Variant
Dim testarray As Variant
Dim a_letztezeile As Integer
a_letztezeile = Cells(Rows.Count, 1).End(xlUp).Row
ReDim a_myvalues(a_letztezeile - 1)
c = 1
For i = 0 To UBound(a_myvalues)
a_myvalues(i) = Range("a" & c).Value
c = c + 1
Next
testarray = Split(txt_search.Text, vbCrLf)
Unload frm_search
'match arrays
a_counter = 0
For i = 0 To UBound(testarray)
x = Application.Match(testarray(i), a_myvalues, 0)
If Not IsNumeric(x) Then frm_result.lbl_result.Caption = frm_result.lbl_result.Caption _
_
& testarray(i) & vbCrLf
Next
If frm_result.lbl_result.Caption = "" Then MsgBox "Alle Werte vorhanden", vbOKOnly Else _
Load frm_result: frm_result.Show
End Sub
Da die Werte, in denen gesucht werden soll, immer in A1:An stehen - kann man jetzt testweise irgendwas in Spalte A eingeben ... das AddIn über das Ribon aufrufen und anschließend nach einem vorhandenen Wert suchen.
Selbst wenn der Wert in dem Array, erzeugt aus dem Inhalt der Spalte A, zufinden ist- läuft
x = Application.Match(testarray(i), a_myvalues, 0)
Ich kann beim besten Willen nicht nachvollziehen warum?
Möglicherweise ist mein Code auch total umständlich, falls es also schlankere Möglichkeiten gibt, bin ich gern für Vorschläge offen.
Danke
Marcel
AddIn: https://www.herber.de/bbs/user/89773.xlam