von Karolus » Fr, 22.04.2011 11:25
Hallo
Füge oberhalb der "with..."-zeile ein:
Code: Alles auswählen
asuchwoerter() = array( "Treffer", "Test")
for i = 0 to ubound(asuchwoerter())
Ändere
.SearchString = "Treffer" zu:
.SearchString = asuchwoerter(i)
und
oZiel = oSheet2.getCellByPosition(0,0) zu :
oZiel = oSheet2.getCellByPosition(i,0)
Oberhalb von "end sub" kommt noch ein
next i
Gruß Karo
Hallo
Füge oberhalb der "with..."-zeile ein:
[code]asuchwoerter() = array( "Treffer", "Test")
for i = 0 to ubound(asuchwoerter())[/code]
Ändere [color=#FF0000].SearchString = "Treffer"[/color] zu:[color=#FF0000].SearchString = asuchwoerter(i)[/color]
und [color=#FF0000]oZiel = oSheet2.getCellByPosition(0,0)[/color] zu :[color=#FF0000]oZiel = oSheet2.getCellByPosition(i,0)[/color]
Oberhalb von "end sub" kommt noch ein [color=#FF0000]next i[/color]
Gruß Karo