Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Ergebnisse aus Code in Array
#1
Video 
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.Smile

Gruß
Antwortento top
#2
Schau mal:

http://www.snb-vba.eu/VBA_Arrays_en.html
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste