[GELÖST] Su+Er von Sonderzeichen in Sheetnamen
Verfasst: Fr, 14.04.2023 17:49
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?
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