Datum per Makro einfügen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Datum per Makro einfügen

Re: Datum per Makro einfügen

von mikeleb » 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

Re: Datum per Makro einfügen

von BritzFox » Mi, 13.02.2019 12:10

Danke
werde ich in Zukunft machen

Re: Datum per Makro einfügen

von Stephan » 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

Re: Datum per Makro einfügen

von BritzFox » 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...

Re: Datum per Makro einfügen

von BritzFox » So, 20.12.2015 18:08

Danke, das geht schon mal supi.

Re: Datum per Makro einfügen

von F3K Total » 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
Dateianhänge
Datum_in_M11.ods
(8.77 KiB) 314-mal heruntergeladen

Datum per Makro einfügen

von BritzFox » 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...

Nach oben