OpenOffice.info

Verfasst: **So, 20.12.2015 17:02**

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...

Verfasst: **So, 20.12.2015 17:59**

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

Verfasst: **So, 20.12.2015 18:08**

Danke, das geht schon mal supi.

Verfasst: **Mi, 13.02.2019 11:28**

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...

Verfasst: **Mi, 13.02.2019 11:57**

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

Verfasst: **Mi, 13.02.2019 12:10**

Danke
werde ich in Zukunft machen

Verfasst: **Mi, 13.02.2019 13:48**

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

OpenOffice.info

Datum per Makro einfügen

Datum per Makro einfügen

Re: Datum per Makro einfügen

Re: Datum per Makro einfügen

Re: Datum per Makro einfügen

Re: Datum per Makro einfügen

Re: Datum per Makro einfügen

Re: Datum per Makro einfügen