VBS und Excel - ZellenFormat ändern

[blob 10]

Hallo allerseits,

 

ich möchte meine gefüllten Variabeln von VBS in Excel ausgeben. Klappt auch ganz gut, nur habe ich nun das Problem dass er mir einer Spalte die Werte nicht richtig anzeigt weil die Formatierung auf Standard lag bevor ich das Feld gefüllt habe, es soll aber Datum sein.

 

 

Habe schon mehrere Varianten ausprobiert, aber die Spalte wird einfach nicht umformatiert :-(

 

[...]

Set xlAPP = CreateObject("Excel.Application")
Set xlBook = xlAPP.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)


With xlAPP.ActiveSheet.Cells(1,1)
.Value = "Datum"
.Font.Italic = True
.Font.Name = "Arial"
.Font.Size = 10
.Font.Bold=True
.columnWidth = 12
.MergeCells = True
End With

'Hier möchte ich das Format umstellen
With xlAPP.ActiveSheet.columns("A:A").select
.selection.numberFormat = "m/d/yyyy"
End With

'Die Zelle wird befüllt
xlAPP.ActiveSheet.Cells(1,1).Value = "29.10.2012"

 

Kann mir jemand weiterhelfen?

[blob 10]

Habe es geschafft, durch probieren funktioniert jetzt folgende Lösung:

 

[...]

Set xlAPP = CreateObject("Excel.Application")
Set xlBook = xlAPP.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

With xlAPP.ActiveSheet.Cells(1,1)
.Value = "Datum"
.Font.Italic = True
.Font.Name = "Arial"
.Font.Size = 10
.Font.Bold=True
.columnWidth = 20
.MergeCells = True
End With

xlAPP.Range("A:A").Select
xlAPP.Selection.NumberFormat = "m/d/yyyy"

[...]

 

Ich Danke für die Aufmerksamkeit! :-)

[phoenixcp 10]

Hi

 

Probier es doch mal mit

    Dim LValue As String
    LValue = Format(Date, "yyyy/mm/dd")
[/Code]