[Gelöst] Calc - Spalte finden und kopieren

[Karolus]

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