Ergebnisse aus Code in Array

[Terades]

Hi zusammen.

Ich habe eine Frage, wie bekomme ich es hin das von dem folgenden Code:

Code:

Sub FindMe()
   Dim ws As Worksheet
   Dim rngSearchRange As Range
   Dim rngFindRange As Range
   Dim Var
   Dim elemVar
   Var = Array("Test") ', "fad"
   Set ws = ThisWorkbook.Sheets(1)
   
   
   k = ActiveSheet.Range("A1048576").End(xlUp).Row


   For i = 2 To k
       For Each elemVar In Var
       
       Set rngSearchRange = ws.Range(ws.Cells(i - 1, "A"), ws.Cells(Rows.Count, "A").End(xlUp))
       Set rngFindRange = rngSearchRange.find(elemVar, LookIn:=xlValues, lookat:=xlWhole)
       
           If Not rngFindRange Is Nothing Then
               'MsgBox elemVar & " found in " & rngFindRange.Address(0, 0)
               Debug.Print rngFindRange.Address(0, 0)
               i = rngFindRange.Row
           Else
               MsgBox elemVar & " not found in:"
           End If
           
       Next elemVar
   Next i

End Sub

Die ergebnisse nicht wie jetzt hintereinander weg ausgegeben werden per debug. Sondern erst in ein Array und dann nacheinander ausgeben werden.

Code:

For i = LBound(MyResults) To UBound(MyResults)
   Debug.Print MyResults(i)
Next i

So in etwa müsste es ja klappen, nur wie befülle ich das Array richtig? Bin noch anfänger in dem Thema.

Vielen dank schonmal. :)

Gruß

[snb]

Schau mal:

http://www.snb-vba.eu/VBA_Arrays_en.html