OpenOffice.info

[quote]An dem Tabellenblatt wurde nichts geändert ....[/quote]

Das war auch NICHT die Frage bzw. Vermutung meinerseits, sondern das sich der Index des Tabellenblattes verschoben hat.

[quote]Das ich da nun einen Zusammenhang mit dem Update vermute scheint mir nicht sooo weit her geholt
[/quote]
Was ja nun nichts mit meiner Frage zu tun hat, denn dort kritisiere ich [i]nicht [/i]die Vermutung das es mit einem Update zu tun habe könnte sondern bitte um Aufklärung welchen Zusammenhang Du zwischen 'es kann nicht richtig aus den Zellen gelesen werden' und 'es hat mit Dateinamenskonventionen zu tun', denn beides sind völlig verschiedene Dinge.

[quote]Es scheitert also am auslesen der Zellen .....
[/quote]
das schreibst Du nun zum dritten Male und weiter sind wir immer noch nicht ...

Ich weiß auch nicht was Du in Ruhe anschauen willst und was Basic-Kenntnisse mit einem Tabellenindex zu tun haben.
Im Moment geht es lediglich um eine Antwort auf die Frage ob der Tabellenindex stimmt.

Sollte der Tabellenindex stimmen wäre ich zwar ratlos, aber zumindest hätten dann andere potentielle Antworter eine Information mehr und ihnen fielen vielleicht noch weitere mögliche Ursachen ein.




Gruß
Stephan

[quote]genau das ....[/quote]

Und was ist "das"?

[quote]Das MAkro speichert zwar im richtigen Pfad .... jedoch ohne Name Datum und Uhrzeit .... nur die beiden Trenn-Unterstriche sind da als Dateiname
[/quote]
das hattest Du bereits geschrieben


Wenn Du keine weiteren Informationen hast kann Dir niemand helfen, das Makro ansich ist einwandfrei und da alles darauf hindeutet das aus den Zellen keine Werte gelesen werden können hatte ich auch bereits eine Mutmaßung geäußert was dafür die Ursache sein kann.



Gruß
Stephan

[quote]Wenn ich das MAkro nun starte liest es anscheinend die Zellen nicht mehr aus und es speichert unter "__" also einfach die beiden Unterstriche die zwischen name _Datum_Uhrzeit stehen .

Hat Win 10 wieder andere Dateinamenskonventionen ?!?[/quote]

Was soll es denn mit einer Dateinamenskonvention zu tun haben wenn nichts gelesen wird?
Sorry, nur das sind Deine Worte und da aus Deinen Gesamtausführungen (für mich) keine Fehlerursache ersichtlich ist, scheint mir diese Frage deshalb sinnvoll weil Du Dir ja etwas bei der Aussage gedacht haben musst und wenn wir wüssten was führt das vielleicht zu einer Lösung.

Ansonsten versuche ich mich einmal im Raten:
der Fehler ist das das Tabellenblatt mit dem Index 0 ein Anderes ist als vorher (z.B. weil ein neues Blatt in die Datei eingefügt wurde) und auf dem jetzt aktuellen Tabellenblatt mit Index 0 die betreffenden Zellen leer sind.


Gruß
Stephan

Hallo

Was jetzt,vor einer knappen Woche war alles gut, und jetzt plötzlich Win10 und "geht nicht"

Meine Glaskugel ist noch zur Erholungskur auf Madeira!

Hallo

mglw. gibts da ein Problem mit den [color=#FF0000]:[/color]Doppelpunkten im Dateinamen, stell mal die Formatierung der Zelle [b][u]G72[/u][/b] um, zb. auf einen Zeit-format-code [color=#FF0000]HH"_"MM"_"SS[/color]

Karolus

Leider sind diese Makros für mich zu kompliziert das ich sie für meine Zwecke adaptieren kann,
ich bin erst Anfänger in Sachen Programmieren.
Lg Mani

Hallo
Grundsätzlich funktioniert das, wenn du aber lediglich die Information "es geht nicht" lieferst, kann dir keiner helfen.

Karo

Hallo
Ich habe OO3 mit win XP und 7 bei mir funktioniert leider keiner der Makros die ihr Gepostet habt.
Ich hätte noch eine Anforderung ans Makro ich möchte immer einen einen fixen Text dazufügen
z.b. "A1"_text.ods


Lg Mani


[color=#800000]Moderation,4[/color]: es reicht, wenn Du hier in diesem Thread nachfragst. Deshalb habe ich Dein anderes Posting gelöscht. Die Antwort von Karolus hätte ich Dir auch gegeben. Also bitte: Deinen Lösungsversuch hier posten und die Fehler(-meldungen) beisteuern; Danke

Sub Speichern_als_Zellname
dim dummy()
myDoc=thisComponent
mySheet=myDoc.sheets(0)
myCell=mySheet.getCellByPosition(3,0)
myString=myCell.string
datei="D:/Rechnungen/"& myString &".ods"
dateiurl=converttourl(datei)
odoc=thisComponent
odoc.storeasurl(dateiurl,dummy())
rem oder
rem odoc.storetourl(dateiurl,dummy())

Das ist der Code des Makros:

[code]
Sub Speichern_als_Zellname
dim dummy()
myDoc=thisComponent
mySheet=myDoc.sheets(0)
myCell=mySheet.getCellByPosition(3,0)
myString=myCell.string
datei="D:/Rechnungen/"& myString &".ods"
dateiurl=converttourl(datei)
odoc=thisComponent
odoc.storeasurl(dateiurl,dummy())
rem oder
rem odoc.storetourl(dateiurl,dummy())
[/code]

Das Makro läuft in einer Dokumentenvorlage und ist dem Ereignis ""Geändert"-Status wurde geändert" zugewiesen.

Funktioniert einwandfrei, ich muss aber jedesmal den Debugger wegklicken, wenn ich das Dokument starte.

Ach ja, ich benutze Openoffice 2.1.

Vielen Dank für Eure Hilfe!

Ist "myDoc" schon zugewiesen? Sind alle verwendeten Variablen (korrekt) deklariert?
gripslund

mySheet = myDoc.sheets(0)

Danke an Euch beide. Es funktioniert mit beiden Methoden. Habe nur noch das Problem, das er mir jetzt beim Starten des Dokuments einen Laufzeitfehler in folgender Zeile bringt:

[code]
mySheet = myDoc.sheets(0)
[/code]

Danke schon mal für die schnelle und gezielte Hilfe. Ihr habt echt Tage des verzweifelten Ausprobierens beendet.

Sub speichern_unter_A1_und_C8
dim dummy()
myDoc = thisComponent
mySheet = myDoc.sheets(0) '1. Tabellenblatt
namenszelle = mysheet.getCellRangeByName("A1")
ortszelle = mysheet.getCellRangeByName("C8")
'Lesen der Werte
Dateiname= namenszelle.string &"_" & ortszelle.string

dateipfad="dein/Verzeichniss/Pfad/"& Dateiname &".ods"
'dein Pfad muss ^^^^^^^^^^^^^^^ dort innerhalb der "-Anführungszeichen stehen !
dateiurl=converttourl(dateipfad)
mydoc.storeasurl(dateiurl,dummy())
rem oder
rem mydoc.storetourl(dateiurl,dummy())
End Sub

Hallo

Ist doch im Prinzip nur eine Zeile in der du C8 als Variable definierst .
Am Stück:
[code]Sub speichern_unter_A1_und_C8
dim dummy()
myDoc = thisComponent
mySheet = myDoc.sheets(0) '1. Tabellenblatt
namenszelle = mysheet.getCellRangeByName("A1")
ortszelle = mysheet.getCellRangeByName("C8")
'Lesen der Werte
Dateiname= namenszelle.string &"_" & ortszelle.string

dateipfad="dein/Verzeichniss/Pfad/"& Dateiname &".ods"
'dein Pfad muss ^^^^^^^^^^^^^^^ dort innerhalb der "-Anführungszeichen stehen !
dateiurl=converttourl(dateipfad)
mydoc.storeasurl(dateiurl,dummy())
rem oder
rem mydoc.storetourl(dateiurl,dummy())
End Sub[/code]

In der Zeile: 'dateipfad.... ' musst du noch deinen Verzeichnisspfad eintragen.
Zum Speichern verknüpsft du am besten dieses Makro mit einer Schaltfläche im Dokument.
Eine Anleitung findest du hier:[url]http://www.ooowiki.de/MakrosMitEinemKlick[/url]

Gruß Karo

Hallo,


zum Verbinden von mehreren Zellinhalten einfach in eine andere Zelle folgende Formel schreiben.

=A1&"_"&C3&".ods"

Immer wichtig: &
Zellinhalt: z.B von A1 und C3
Alles was nicht in den Zellen steht mit: " am Anfang und Schluß

Gruß Andreas

Danke für die extrem schnelle Antwort, Karo. Ich kann dank Deiner Hilfe jetzt Dateien mit dem Namen eines Feldes erzeugen. Ich bekomm's aber nicht hin, dass Calc den Inhalt von zwei Feldern kombiniert. Also A1_C3.ods

Bin leider der totale Nullblicker, wenn's um Programmier- oder Skriptsprachen aller Art geht. Wäre für weitere Hilfe natürlich dankbar, versuch jetzt aber auch einfach weiter dran zu knobeln.

Hallo

Schau dir dir mal dies an, dürftest du dir auf deine Wünsche anpassen können.[url]http://www.ooo-portal.de/index.php?module=pnForum&func=viewtopic&topic=3155[/url]
Bei Problemen frag noch mal nach.

Gruß Karo