wie muß man :
Cells(Target.Row, intColDest) = .Cells(varFind.Row, 2)
verändern damit er die Einträge die er mir heraussucht nicht nebeneinander sondern untereinander ausgibt?
Hat jemand eine Idee?
Bin für jede Hilfe dankbar.
MfG
Sebastian Hellwig
wie muß man :
Cells(Target.Row, intColDest) = .Cells(varFind.Row, 2)
verändern damit er die Einträge die er mir heraussucht nicht nebeneinander sondern untereinander ausgibt?
Hat jemand eine Idee?
Bin für jede Hilfe dankbar.
MfG
Sebastian Hellwig
bin gespannt, ob heute jemand die Glaskugel dabei hat, ;-) Normalsterbliche werden die Frage nicht beantworten können.
Poste bitte den kompletten Code. Man muß doch wissen, was in den Variablen steht, wie die (vermutlich vorhandene) Schleife aussieht usw.
Gruß
Martin Beck
ich kann das jetzt nicht testen, vermute aber, daß die Do-Loop-Schleife wie folgt lauten müßte:
z = Target.Row
Do
'Wert aus Spalte B übertragen
Cells(z, intColDest) = .Cells(varFind.Row, 2)
'nächste Übereinstimmung suchen
Set varFind = .FindNext(varFind)
'Spaltenbezug für nächsten Wert um 1 erhöhen
z = z + 1
'Schleife ausführen, solange der Eingabewert gefunden wird
'und die 1. Zelle mit Übereinstimmung wieder erreicht ist.
Loop While Not varFind Is Nothing And _
varFind.Address <> strFindFirst
Gruß
Martin Beck
Also nochmals vielen Dank, hoffe ich kann dir auch mal helfen.
MfG
Sebastian Hellwig