22.11.2018, 16:25
Hi zusammen.
Ich habe eine Frage, wie bekomme ich es hin das von dem folgenden Code:
Die ergebnisse nicht wie jetzt hintereinander weg ausgegeben werden per debug. Sondern erst in ein Array und dann nacheinander ausgeben werden.
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ß
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 SubDie 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 iSo 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ß