also ich habe diese Funktion :
Code: Alles auswählen
Function Counting(Tabellenanzahl as integer, Zelle as string, wert as string) as integer
dim checksheet as object
dim checkobj as object
odoc = thiscomponent
a = 0
for i = 0 to Tabellenanzahl-1
checksheet = oDoc.Sheets(i)
checkobj = checksheet.getcellrangebyname(Zelle)
Checkstring = checkobj.string
if checkstring = wert then
a = a + 1
End if
next
counting = a
End function
Gruß
Andreas