OpenOffice.info

Habe schnelle und sehr kompetente Hilfe im englischen Forum bekommen. Die Lösung findet sich hier:
[url]https://forum.openoffice.org/en/forum/viewtopic.php?t=109819[/url]

Sub Main
Dim calcDoc as Object 
calcDoc = ThisComponent
j=0
for i = 0 to calcDoc.sheets.count-1 
   If Left(calcDoc.sheets(i).name,2) = "XT" then
    j=j+1
   end if
next
msgbox(j)
end sub

Hallo zusammen,

ich versuche ein Makro zum Laufen zu bringen, das in einer Calc-Datei
alle Sheetsnamen auf Sonderzeichen (?\/ etc.) untersucht und diese
löscht. Mir ist klar, dass dies mit Left nicht möglich ist. Gibt es
eine Basicfunktion, die alle Zeichen eines Sheetnamen auf diese Zeichen
prüft?
[code]Sub Main
Dim calcDoc as Object
calcDoc = ThisComponent
j=0
for i = 0 to calcDoc.sheets.count-1
If Left(calcDoc.sheets(i).name,2) = "XT" then
j=j+1
end if
next
msgbox(j)
end sub[/code]