Datum per Makro einfügen

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

BritzFox
Beiträge: 9
Registriert: So, 20.12.2015 10:22

Datum per Makro einfügen

Beitrag von BritzFox »

Hi, ich bekomm es nicht hin...
Habe mit SuFu und über Googel gesucht.

Ich will beim öffnen einer Tabelle (ich öffne diese mit einem MaKRO in einer anderen Tabelle) das aktuelle Datum in Zelle M11 eintragen. (TT.MM.JJJJ)
Ich hatte es schon manuell hinbekommen, allerdings mit einem ' vor dem Datum was zu Problemen bei einer Berechnung führt.
Bekomme es auch nur manuell hin.
Hier mal mein bisheriger Versuch...

Code: Alles auswählen

sub setdate
oDoc=thisComponent
Sheet = oDoc.Sheets(0) '[erstes Arbeitsblatt]
mycell01 = Sheet.getCellRangeByName("$M$11")
if mycell01.string = "" then
Insert_As_Value( Date, "TT. MMM JJJJ", com.sun.star.util.NumberFormat.DATE )
end if
end sub
Was muss ich ändern, damit das Datum als Zahl und nicht als Text mit dem ' eingefügt wird

Wie bekomme ich das beim öffnen der Tabelle gleich eingefügt ?

Wie kann ich das Feld M11 per Makro leer bekommen (benötige ich für ein anderes Makro, das mir die Tabelle bei Änderungen speichert...)

Danke schon mal für die Hilfe...
F3K Total
********
Beiträge: 3704
Registriert: Mo, 28.02.2011 17:49

Re: Datum per Makro einfügen

Beitrag von F3K Total »

Hi,
wenn du die Zelle von Hand formatierst, geht einfach dies:

Code: Alles auswählen

sub setdate
    oDoc = thisComponent
    Sheet = oDoc.Sheets(0) '[erstes Arbeitsblatt]
    mycell01 = Sheet.getCellRangeByName("$M$11")
    if mycell01.string = "" then
        mycell01.value = date()
    end if
end sub
Siehe Beispieldatei

Gruß R
Dateianhänge
Datum_in_M11.ods
(8.77 KiB) 314-mal heruntergeladen
BritzFox
Beiträge: 9
Registriert: So, 20.12.2015 10:22

Re: Datum per Makro einfügen

Beitrag von BritzFox »

Danke, das geht schon mal supi.
BritzFox
Beiträge: 9
Registriert: So, 20.12.2015 10:22

Re: Datum per Makro einfügen

Beitrag von BritzFox »

Wie kann ich denn noch einen Text dazu bekommen ?
also etwa so
Arbeitszeit 22.12.2018

aktuell bekomme ich nur das datum in die Zelle
ohne jeglichen Text

Das Datum soll das aktuelle sein...
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Datum per Makro einfügen

Beitrag von Stephan »

Code: Alles auswählen

sub setdate
    oDoc = thisComponent
    Sheet = oDoc.Sheets(0) '[erstes Arbeitsblatt]
    mycell01 = Sheet.getCellRangeByName("$M$11")
    if mycell01.string = "" then
        mycell01.string = "Arbeitszeit " & date()
    end if
end sub

Gruß
Stephan

Bitte beachte im Übrigen für solche FRagen einen neuen Thread zu edröffnen und nicht einen alten Thread zu verlängern. Siehe "Eröffnet neue Threads" in viewtopic.php?f=3&t=54568
BritzFox
Beiträge: 9
Registriert: So, 20.12.2015 10:22

Re: Datum per Makro einfügen

Beitrag von BritzFox »

Danke
werde ich in Zukunft machen
mikeleb
*******
Beiträge: 1316
Registriert: Fr, 09.12.2011 16:50

Re: Datum per Makro einfügen

Beitrag von mikeleb »

Hallo,
wenn du die Zelle per Hand formatierst, reicht es per Makro den Wert einzutragen (dann kannst du später auch mit dem Datum rechnen, falls nötig).
Als Zahlenformat nimmst du dann z. B.

Code: Alles auswählen

"Arbeitszeit " TT.MM.JJJJ
Gruß,
mikeleb
Antworten