makro "speichern von name und datum rückwärts"

[komma4]

das datum ist in der gewünschten form einzeln problemlos, nach ausführung der formel allerdings konsequent ausgerechnet (EINSTEIN, ALBERT, 192768). was mache ich falsch)
cu, harald

Welche Formel? Woher nimmst Du das (Tages-?)Datum?
OOo-Version? Als Calc-*.ods gespeichert?


Vielleicht hilft Dir die Aufbereitung des Datums hier: makeDayCopy

[turtle47]

Hallo Harald,

sämtliche werte sind in zellen vorhanden und können über eine formel auch zusammengeführt werden

Warum machst Du das denn so kompliziert im Code ist das doch viel einfacher:

Code: Alles auswählen

Sub Speichern_mit_Datum
	Dim sName As String
	Dim sVorname As String
	dim mydate as String
	dim dummy()   
	oDoc = ThisComponent
	oSheet = oDoc.Sheets.getByName("Tabelle1")
	oCell = oSheet.getCellRangeByName("A1") 'Tabellenfeld, in dem der Name steht
	sName = oCell.String
	oCell = oSheet.getCellRangeByName("A2") 'Tabellenfeld, in dem der Vorname steht
	sVorname = oCell.String
	oCell = oSheet.getCellRangeByName("A3") 'Tabellenfeld, in dem das Geburtsdatum steht
	sGebdatum= oCell.String
	myDate = format(sGebdatum(),"YYYY.MM.DD")
	myDate= year(sGebdatum()) & "." & month(sGebdatum()) & "." & day(sGebdatum())
	sLaufwerk = "C:/"
	Filename = sName & ", " & sVorname & ", " & myDate
	neuerpfad = sLaufwerk + Filename + ".ods"
	dateiurl=converttourl(neuerpfad)
	odoc.storetourl(dateiurl,dummy())
End Sub

Hilft das weiter?

Übrigens wäre es nett wenn Du Deine Shift-Taste betätigen würdest, dann könnte man Deinen Text viel einfacher lesen. Danke.

Jürgen

Edit: Wenn Du aber unbedingt mit einer Formel arbeiten möchtest das verwende folgende:

Code: Alles auswählen

=VERKETTEN(A1;", ";A2;", ";TEXT(A3;("JJJJ.MM.TT")))