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