Re: Calc - Spalte finden und kopieren
Verfasst: Fr, 22.04.2011 11:25
Hallo
Füge oberhalb der "with..."-zeile ein:
Ä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
Füge oberhalb der "with..."-zeile ein:
Code: Alles auswählen
asuchwoerter() = array( "Treffer", "Test")
for i = 0 to ubound(asuchwoerter())und oZiel = oSheet2.getCellByPosition(0,0) zu :oZiel = oSheet2.getCellByPosition(i,0)
Oberhalb von "end sub" kommt noch ein next i
Gruß Karo