Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

date = 04.12.03 / brauche 04.12.2003

Forumthread: date = 04.12.03 / brauche 04.12.2003

date = 04.12.03 / brauche 04.12.2003
04.12.2003 15:07:54
Matthias
hallo zusammen

so habe ichs:

ActiveCell.FormulaR1C1 = Date
Range("A3").Select
ActiveCell.FormulaR1C1 = Date - 30
Range("A4").Select
ActiveCell.FormulaR1C1 = Date - 2

dann gibt er mir 04.12.03 bzw. 04.11.03 aus

ich will aber 04.12.2003 bzw. 04.11.2003 haben

was muss ich ändern??

vielen dank.
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: date = 04.12.03 / brauche 04.12.2003
04.12.2003 15:10:23
GerdW
ActiveCell = Date
[a3] = Date - 30
[a4] = Date - 2

Zahlenformat TT.MM.JJJJ

Gerd
geht noch nicht
04.12.2003 15:15:43
matthias
ich habe folgendes problem

ActiveCell.FormulaR1C1 = "easysped/0/" & date & "/1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "F/H/" & date - 2 & "/" & date - 30
Range("A3").Select
ActiveCell.FormulaR1C1 = "D/340800x/6000999/sss/2222/0//DE031101x/0"
Range("A4").Select

das sind also keine reinen datumsfelder, die ich formatieren kann, datum
ist nur teil des strings
Anzeige
AW: geht noch nicht
04.12.2003 15:19:29
GerdW
Das hättest du auch gleich posten können!

nur mal für Fall 1:

ActiveCell.FormulaR1C1 = "easysped/0/" & Format(date,"dd.mm.yyyy") & "/1"

Gerd
AW: geht noch nicht
04.12.2003 15:30:22
matthias
super - das funzt

herzlichen dank Gerd
AW: geht noch nicht
04.12.2003 15:30:30
matthias
super - das funzt

herzlichen dank Gerd
Anzeige
AW: geht noch nicht
04.12.2003 15:40:08
GerdW
Wobei zusätzlich Punkte in Dateinamen zu Problemen führen können,
nimm besser das Format "dd-mm-yyyy" oder "dd_mm_yyyy"

Gerd
vielleicht so
04.12.2003 15:24:05
IngoG
Hallo matthias,

versuchs mal mit


Sub tttt()
[a2] = "easysped/0/" & Application.WorksheetFunction.Text(Date, "DD.MM.YYYY")
[a3] = "TTTeeexxxttt" & Application.WorksheetFunction.Text(Date - 2, "DD.MM.YYYY")
[a4] = "Beispiel" & Application.WorksheetFunction.Text(Date - 30, "DD.MM.YYYY")
End Sub


Gruß Ingo

PS eine Rückmeldung wäre nett...
Anzeige
AW: vielleicht so
04.12.2003 15:31:53
matthias
hi ingo

deine lösung habe ich auch mal gespeichert - die von gerd habe ich aber jetzt eingebaut.

vielen dank.

ihr hab mir geholfen.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige