von turtle47 » Mo, 11.08.2008 01:22
Hallo Harald,
Harald 1 hat geschrieben: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:
Hallo Harald,
[quote="Harald 1"]sämtliche werte sind in zellen vorhanden und können über eine formel auch zusammengeführt werden
[/quote]
Warum machst Du das denn so kompliziert im Code ist das doch viel einfacher:
[code]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[/code]
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]=VERKETTEN(A1;", ";A2;", ";TEXT(A3;("JJJJ.MM.TT")))[/code]