OpenOffice.info

gut, überredet! Ich bin bisher ja auch zufrieden gewesen und wenn beim Fahrradreifen Luft aus dem Ventil entweicht, kaufe ich mir ja auch nicht gleich ein neues Fahrrad.

Gruß Jürgen

[quote]@Stephan: die Leute neigen dazu sowas abzuschreiben ohne nachzudenken! …[/quote]

ja, berechtigte Kritik.

Ich muss zu meiner Schande gestehen das ich sehr selten 'for each ... in ... next' verwende - womit ich sagen will das hätte ich nicht abgeschrieben ich wahrscheinlich trotzdem nicht 'for each ...' verwendet, sondern es per Index gemacht hätte.



Gruß
Stephan

Hallo Balu,
Klasse, das ist es was mich etwas beruhigt. Das Problem scheint also in diesem Fall an Aoo zu liegen. Wie schon beschrieben ist das Problem für mich erst einmal erledigt (Handarbeit), es wäre aber schön gewesen eine Lösung per Makro zu haben.

An alle, vielen Dank für Euere Hilfe. Stellt sich für mich jetzt die Frage nach Ooo zu wechseln, aber was funktioniert da nicht so wie gewollt? Muss ich halt ausprobieren.

Gruß Jürgen

Hallo Karolus,
danke für Deine Tipps. Mit Python kenne ich mich gar nicht aus. Da ich noch am üben bin, werde ich es bestimmt irgendwann auch schaffen, einen Screenshot rein zustellen.

Gruß Jürgen

Hallo Christian,
danke für Dein Angebot, aber ich habe bei einem Excel-Anwender die Namen alle per Hand gelöscht. War zwar aufwendig aber jetzt ist's ok.

Gruß Jürgen

def main():
    doc = XSCRIPTCONTEXT.getDocument()
    remove_named_ranges(doc)
    sheets = doc.Sheets
    sheetnames= sheets.ElementNames
    for sheetname in sheetnames:
        remove_named_ranges(sheets.getByName( sheetname ))

        
def remove_named_ranges( namerange_object ):
    nameranges = namerange_object.NamedRanges
    for rangename in nameranges.ElementNames:
        nameranges.removeByName(rangename)

Hallo

Wie bereits oben vermutet, die Problemkinder sind unter denen mit [u]Geltungsbereich auf einzelnen Tabellenblättern[/u]

[attachment=0]Namensbereiche.png[/attachment]

Zum entfernern sämtlicher Bereiche( python ):

[code=php]def main():
    doc = XSCRIPTCONTEXT.getDocument()
    remove_named_ranges(doc)
    sheets = doc.Sheets
    sheetnames= sheets.ElementNames
    for sheetname in sheetnames:
        remove_named_ranges(sheets.getByName( sheetname ))

        
def remove_named_ranges( namerange_object ):
    nameranges = namerange_object.NamedRanges
    for rangename in nameranges.ElementNames:
        nameranges.removeByName(rangename)[/code]

   x.removeByName(x(i-1).Name)

Hallo.

[quote="Stephan"]
Nenne bitte einen konkreten Link zu einer konkreten Datei
[/quote]
Vor dem Problem stand ich auch. Bis das ich gesehen hatte das Jürgen (jef0815) es beschrieben hatte wie man an die Datei herankommt. Ist in seinem Beitrag nicht sofort ersichtlich, aber es steht dort.
Damit das suchen entfällt, erklär ich das mal kurz.

[url=https://www.lotto-hessen.de/pfe/controller/GameResultController/showLotto;jsessionid=hLHwR3OmGT9PHsVAl0XUimhcscyQubCGXEeKubgkU3-wFtYzGL9C!-332736629!ltipf11!8001!-1!1152888861!ltipf21!8001!-1?gbn=5&loc=de&jdn=5]Hier[/url] gelangt man zu der dementsprechenden Seite.

Dann muss man runterscrollen bis zu diesem hier:
[color=#0000FF]Gewinnzahlen
Samstag 1955 - 2014[/color]

Das ist ein Link zu einem ZIP. Diesen Link habe ich jetzt mal hier rein kopiert.
[url=https://www.lotto-hessen.de/pfe/static/gamebroker_5/de/download_files/lotto_samstag.zip]Klick mich![/url]
In diesem ZIP-Archiv befindet sich nur eine Datei. Name ist: LOTTO_6aus49.xls


Was bei mir Funktioniert ist folgendes.
Die xls in OOo 3.2.1 öffnen, und als ods speichern. Anschließend Datei erneut öffnen und das erste vom Jürgen gezeigte Makro ausgeführt. Ergebnis: Alle Namen gelöscht.

Die eben gespeicherte ods mit der Namensliste in AOO 4.1.1 & AOO 4.1.2 geöffnet, das besagte Makro ausgeführt. Alle Namen gelöscht.


Die xls in AOO 4.x.x geöffnet und als ods gespeichert. Erneut geöffnet und das Makro ausgeführt. Ergebnis: Fehlermeldung in der Codezeile
[code=php]
   x.removeByName(x(i-1).Name)
[/code]
Text der Fehlermeldung so wie Jürgen schon schön aufgeschrieben hatte.
[quote]
. BASIC-Laufzeitfehler.
. Es ist eine Exception aufgetreten.
. Type: com.sun.star.uno.RuntimeException
. Message:
[/quote]

Ein Auszug aus der Namensliste der xls-Datei inklusive einem #Ref-Fehler sieht in OOo 3.2.1 wie folgt aus.
[attachment=1]ooo.jpg[/attachment]
Und in AOO so
[attachment=0]aoo.jpg[/attachment]
Wie eindeutig zu sehen ist, haben einige Namen in AOO noch Zahlen in Runden Klammern stehen, wahrscheinlich Jahreszahlen. Und ich sage jetzt mal, das diese Klammern ein Problem darstellen, oder der zusätzliche leerraum zwischen dem Namen und der Klammer. Da ich aber mit dieser Problematik noch nichts zu tun hatte, kann ich auch nix weiteres dazu sagen wie z.B. das Löschmakro umgeschrieben werden muss.



Gruß
balu

Doc_Ranges = ThisComponent.NamedRanges
for each RangeName in Doc_Ranges.ElementNames
    content = Doc_Ranges.getByName( RangeName ).Content
    if content = "" or left(content, 6) = "$#REF!" then
        Doc_Ranges.removeByName( RangeName )
    end if
next

Hallo

@Stephan: die Leute neigen dazu sowas abzuschreiben ohne nachzudenken! …

[code]Doc_Ranges = ThisComponent.NamedRanges
for each RangeName in Doc_Ranges.ElementNames
content = Doc_Ranges.getByName( RangeName ).Content
if content = "" or left(content, 6) = "$#REF!" then
Doc_Ranges.removeByName( RangeName )
end if
next[/code]

Im Übrigen gibts theoretisch auch …[color=#FF0000]NamedRanges[/color] nicht nur global auf [color=#BF0000]Dokument-Ebene[/color] sondern auch für einzelne T[color=#BF0000]abellenblätter[/color](LO)

Sub alle_Bereiche_loeschen()
x = ThisComponent.namedRanges
y = x.Count
For i = y To 1 Step -1
   If Left(x.getByName(x(i-1).Name).Content, 6) = "$#REF!" OR x.getByName(x(i-1).Name).Content = "" Then
     x.removeByName(x(i-1).Name)
   End If
Next i
End Sub

[quote]Du hast natürlich recht, in der obersten Zeile sind nur die Daten des Jahres, in der zweiten Zeile dann die gesammelten Daten als xls-Datei.[/quote]

Da ich im Moment nicht die Ursache verstehe warum Dein Makro (siehe erster Post des Threads) eine Fehlermeldung bringt, versuche doch einmal das folgende Makro welches nur die fehlerhaften Namen entfernen sollte:

[code]Sub alle_Bereiche_loeschen()
x = ThisComponent.namedRanges
y = x.Count
For i = y To 1 Step -1
If Left(x.getByName(x(i-1).Name).Content, 6) = "$#REF!" OR x.getByName(x(i-1).Name).Content = "" Then
x.removeByName(x(i-1).Name)
End If
Next i
End Sub
[/code]

Gruß
Stephan

Hallo Chris,
1. ich habe kein Excel
2. ich arbeite mit AOO 4.1.2
vielleicht liegt es ja daran, oder Du versuchst die xls-Datei einmal unter einer früheren Version (.xls) abzuspeichern.

Gruß Jürgen

Hallo Stephan,
Du hast natürlich recht, in der obersten Zeile sind nur die Daten des Jahres, in der zweiten Zeile dann die gesammelten Daten als xls-Datei.
Gruß Jürgen

[quote]Eine wunderbare Beispieldatei findest Du unter "lotto-hessen.de" im Bereich "Gewinnzahlen & Quoten". Dort kannst Du Dir Gewinnzahlen downloaden. In diesen Dateien erkennst Du das beschriebene Problem. [/quote]

Nenne bitte einen konkreten Link zu einer konkreten Datei denn mit dem erstbesten Download auf der Seite, nämlich Lotto 6 aus 49 Gewinnzahlen 2015 erhalte ich eine reine txt-Datei, die natürlich keine Bereichen enthält weil das technisch bei txt nicht geht.


Gruß
Stephan

Hallo Chris,
in den benannten Bereichen sind auch keine Leerzeichen, das ist irgendeine Verknüpfung mit dem Blattnamen. Wie vorher schon beschrieben kann ich die paar Bereiche löschen, die einen zusammenhängenden Namen besitzen. Eine wunderbare Beispieldatei findest Du unter "lotto-hessen.de" im Bereich "Gewinnzahlen & Quoten". Dort kannst Du Dir Gewinnzahlen downloaden. In diesen Dateien erkennst Du das beschriebene Problem. Auch Dir möchte ich für Dein Engagement bezüglich meiner Anfrage danken.
Gruß Jürgen

Hallo Faol,
Danke für Deine ausführliche Beschreibung und Hinweise. Da ich auf meinem Rechner nicht mit Excel arbeite, muss ich wohl oder übel so vorgehen wie beschrieben. Ich hoffe es kommt nicht all zu oft vor.

Vielen Dank
Jürgen

Hallo,
wenn ich die Excel-Datei mit Calc öffne und dann unter ods abspeichere, kann ich die Namen zwar einzeln löschen, nach dem Speichern sind alle wieder vorhanden. Wenn ich die Excel-Datei mit Calc öffne und vor dem Abspeichern die Namen einzeln lösche, dann sind sie für immer verschwunden. Noch eines zu den Namen: Unter den festgelegten Namen gibt es welche die zusammenhängend sind, die kann ich mit dem Makro auch löschen. Die meisten Namen haben noch eine Verknüpfung mit dem Tabellenblatt (z.B. "Excel_BuiltIn_irgendwas (Blattname)". Darin liegt wahrscheinlich das Problem. Im Makro kann ich die Elemente auflisten, es erscheinen auch alle, allerdings ohne diesen Zusatz in Klammern. Für mich ist das Problem also gelöst, obwohl dieser Aufwand per Hand (ca. 300 Namen) sehr aufwendig ist und ich unter einer "Lösung" etwas anderes verstehe. Danke für Deine Mühe.
Gruß Jürgen