[GELÖST] Su+Er von Sonderzeichen in Sheetnamen

[kkl]

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: Alles auswählen

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

[kkl]

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