Seite 1 von 1
alle Zellvorlagen auf einmal löschen?
Verfasst: Fr, 28.12.2007 11:33
von heinz_ketchup
Hallo,
wie kann ich alle Zellvorlagen auf einmal löschen?
Ich habe eine alte Exceltabelle importiert und da sind plötzlich hunderte von Zellvorlagen drin. Die alle manuell zu löschen ist eine heiden Arbeit.
Vielen Dank für eure hilfreichen Tipps!
Schöne Grüße
Werner
Re: alle Zellvorlagen auf einmal löschen?
Verfasst: Fr, 28.12.2007 13:03
von Toxitom
Hey Werner,
hmm, die werden automatisch beim Import erzeugt - sicher, dass du sie nicht noch brauchst?
Alle erzeugten Vorlagen löschen lässt sich m.W. nur durch ein Makro erledigen (so habe ich es immer gemacht
).
Wenn ich es noch finde, pioste ich dir gerne den Code - ein bischen Ahnung von Makros musst du aber mitbringen.
Viele Grüße
Thomas
Re: alle Zellvorlagen auf einmal löschen?
Verfasst: Fr, 28.12.2007 13:20
von heinz_ketchup
Hi Thomas,
ich bin mir sicher, dass ich die Zellvorlagen nicht mehr brauche, da mein Projekt ein Neuanfang sein soll!
Daher muss der alte Kram weg.
Ich dachte mir schon, dass man das nur mit einem Makro machen kann. Aber ein Versuch war's ja wert, erst einmal die Löschen-Alles-Methode zu finden.
Wenn Du das Makro noch hast, das wäre toll. Dann brauche ich das Rad nicht nochmal neu zu erfinden. Mit Makros kann ich schon ein bischen umgehen. Natürlich noch lange nicht so wie Du.
Vielen Dank und schöne Grüße
Werner
Re: alle Zellvorlagen auf einmal löschen?
Verfasst: Fr, 28.12.2007 15:03
von Toxitom
Hey Werner,
ok, gefunden:
Code: Alles auswählen
sub Del_Excel_Formate
dim oStyleFamilies as object, oStyles as object
dim aStNamen
oStyleFamilies = thisComponent.getStyleFamilies
for i = 0 to oStyleFamilies.getCount()-1
oStyles = oStyleFamilies.getByIndex(i)
REM Liste der Vorlagennamen innerhalb der Gruppe
aStNamen() = oStyles.getElementNames()
for j = 0 to uBound(aStNamen())
if lcase(left(aStNamen(j), 5)) = "excel" then 'Zellvorlagen
oStyles.removeByName(aStNamen(j))
elseif lcase(left(aStNamen(j), 9)) = "pagestyle" then 'Seitenvorlagen
oStyles.removeByName(aStNamen(j))
end if
next j
next i
end sub
Beim Excel-Import entstehen verschiedene Vorlagen: Alle Zellvorlagen beginnen mit "Excel_CondFormat_", alle Seitenvorlagen mit "PageStyle", hinzu kommen diverse Zellvormat-Vorlagen in den Seitenvorlagen, die über das Frontend nicht angezeigt werden. Auch die beginnen mit "Excel_CondFormat_".
Ich hoffe, es hilft
Viele Grüße
Thomas
Re: alle Zellvorlagen auf einmal löschen?
Verfasst: Fr, 28.12.2007 18:23
von heinz_ketchup
Hi Thomas,
vielen Dank für das Makro!!!!!
Da muss ich mich jetzt erst mal durchwursteln. Das wird ein bischen dauern. Ich werde Dir meine "Erfolge" berichten, wenn's soweit ist.
Viele Grüße!
Werner