Befehle/ Makros für Steuerungelemente, wie Speichern, Löschen

[Ouagadougou]

Juhuu, jetzt habe ich schonmal ein Button richtig belegt. Beim Klicken auf Beenden wird das Dokument nun abgespeichert und anschließend komplett geschlossen. Danke mikeleb!!!!!!

Auf die anderen komme ich aber leider nicht

[mikeleb]

Hallo,
naja so einfach mit 'drauf kommen ist da auch nichts. Es erfordert schon einiges an Programmierarbeit. Die Quellen liefern dir dabei schon die notwendigen Bausteine.
- Steuerelemente auslesen
- Daten in Zellen schreiben (vorher den richtigen Bereich dafür finden)
- Steuerelemente (Listbox) mit Daten füllen
- ...
Was hast du davon schon (ansatzweise) realisiert?

[Ouagadougou]

Hallo,
ich habe nun ein bisschen ausprobiert und acu ein wenig hinbekommen

Mir fehlt jetzt eig nur noch der Befehl ein Währungsfeld (Steuerungselement) so auszulesen, dass der Inhalt auch in einer Zelle geschrieben wird.

Equivalent zu folgendem Beispiel mit dem Datumsfeld.

Code: Alles auswählen

Sub Setze_Datum()
With ThisComponent.CurrentController.getActiveSheet
	dpf = .Drawpage.Forms
	dfn = dpf.getByName("Formular").GetByName("datum1").date
	.getCellRangeByName("A1").FormulaLocal = CDateFromIso(dfn)
End With
End Sub

Ich brauche allerdings etwas einen Befehl zum Währungsfeld. Meine ganzen Versuche sind kläglich gescheitert.

Über ein paar Vorschläge würde ich mich sehr freuen!!

[Stephan]

Mir fehlt jetzt eig nur noch der Befehl ein Währungsfeld (Steuerungselement) so auszulesen, dass der Inhalt auch in einer Zelle geschrieben wird.

das erfordert genau den gleichen Code, wie beim Date-Feld, einzig heißt die Eigenschaft nicht .date sondern .value.

man muss sowas auch nicht wissen, man kann es nachschlagen, z.B. hier:
http://www.openoffice.org/api/docs/comm ... html#Value


Gruß
Stephan

[Ouagadougou]

Wie hat der Code demnach genau auszusehen?
Bei mir funktioniert es nicht.

Wie soll "CDateFromIso(dfn)" passend ersetzt werden?

[F3K Total]

So, zum Beispiel

Code: Alles auswählen

Sub Setze_Datum()
    With ThisComponent.CurrentController.getActiveSheet
	    dpf = .Drawpage.Forms
	    dfw = dpf.getByName("Formular").GetByName("Währungsfeld 1").Value
	    .getCellRangeByName("A1").Value = dfw
    End With
End Sub

R

[Ouagadougou]

Vielen vielen Dank. Es hat funktioniert!!! Es lag wohl an dem fehlenden "dfw".

Dann habe ich noch eine Frage: Was muss man für einen Befehl eingeben, wenn man möchte, dass die Felder auf jeden Fall ausgefüllt sein müssen und im richtigen Format. Bei Textfeldern nur Text und anders.
Und wo muss dieser Befehl genau hingeschrieben werden?

[F3K Total]

Hallo,
die Frage hat mit dem ursprüglichen Thema nix mehr zu tun. Erstelle bitte einen neuen Beitrag.

Es lag wohl an dem fehlenden "dfw".

Nein lag es nicht, es hätte auch beim dfn bleiben können. Was mir zeigt, dass du es nicht verstanden hast.
Deine Salamitaktik, dir so langsam aber sicher Makros zusammenzuschnorren, statt selbst zu versuchen die Aufgabe zu lösen, gefällt, zumindest mir, nicht. Es gibt zig Beispiele hier im Forum, und den Hinweis auf Dannenhöfer hast du auch bekommen.
Ich bin also raus.
R

[Ouagadougou]

Mimimimimi