OpenOffice.info

Verfasst: **So, 20.12.2015 10:37**

Hi,
ich würde gerne umsteigen von MS Office auf OpenOffice.
Allerdings habe ich in Excel einige Makros, die mich bisher daran hindern.
Aber vielleicht kann mir ja jemand dabei helfen.

Als erstes finde ich nicht, wie man eigene Schaltflächen einbauen kann.
Ich benötige 3 Icons, die ich mit Makros belegen kann.
Am besten rechts neben dem drucken Symbol.
Die Makros für diese 3 Icons haben folgende Funktion.

Makro 1
als erstes brauche ich ein Makro, dass mir die Vorlage d:\daten\vorlage1.ots öffnet.

Makro 2
aktuell geöffnete Datei speichern unter d:\daten\ dateiname aus Feld M13

Makro 3
feld M11 leeren (inhalt löschen)
Datei speichern als d:\daten\vorlage1.ots

1000 Dank schon mal für die Hilfe.

Verfasst: **So, 20.12.2015 12:31**

Moin,

BritzFox hat geschrieben:Makro 1
als erstes brauche ich ein Makro, dass mir die Vorlage d:\daten\vorlage1.ots öffnet.

Makro 2
aktuell geöffnete Datei speichern unter d:\daten\ dateiname aus Feld M13

Makro 3
feld M11 leeren (inhalt löschen)
Datei speichern als d:\daten\vorlage1.ots
Kannst Du dir selbst mit Hilfe der folgenden Links zusammenbauen.
http://www.dannenhoefer.de/faqstarbasic ... l#Zweig133
http://www.dannenhoefer.de/faqstarbasic ... l#Zweig167
BritzFox hat geschrieben:Als erstes finde ich nicht, wie man eigene Schaltflächen einbauen kann.
Ich benötige 3 Icons, die ich mit Makros belegen kann.
Das geht über Extras/Anpassen.../Reiter Symbolleisten. Steht auch in der Hilfe (F1). Den Einträgen in deiner eigenen Symbolleiste kannst Du die oben erstellten Makros zuordnen.

Gruß R

Verfasst: **So, 20.12.2015 14:00**

Also ich bekomme das Speichern mittlerweile hin.
Ich hätte gerne den Dialog speichern unter mit der Vorgabe des Dateinamen, aber nicht speichern ohne Nachfrage, so dass ich noch was am DateiNamen ändern kann.

Code: Alles auswählen

sub save2
  oDoc=thisComponent
  Sheet = oDoc.Sheets(0) '[erstes Arbeitsblatt]
  Cell = Sheet.getCellByPosition(12, 12)  '[Zelle A1]
  Filename = Cell.String
  Path = "file:///d:/daten/" 
  dim args1(0) as new com.sun.star.beans.PropertyValue
  args1(0).Name = "FilterName"
  args1(0).Value = "StarOffice XML (Calc)"
  oDoc.storeasurl(Path &  Filename & ".ods",args1())
end sub

Verfasst: **So, 20.12.2015 14:46**

Hai BritzFox,

was glaubst Du, wofür hier die Rubrik "Makros und allgemeine Programmierung" eingerichtet wurde?

Richtig, damit Fragen wie diese dort gestellt werden. Bitte nutze diese Rubrik bei zukünftigen Fragen zu Makros.

Mit unprogrammierten Grüßen

Eddy

Verfasst: **So, 20.12.2015 14:55**

Oha, sorry.
Bin ich im falschen Unterforum

Kann gelöscht werden.

OpenOffice.info

Frage zu Makros

Frage zu Makros

Re: Frage zu Makros

Re: Frage zu Makros

Re: Frage zu Makros

Re: Frage zu Makros