Formatierung von xls nach csv
24.11.2008 10:58:25
xls
ich habe ein Problem mit der Formatierung einer Zelle. Ich habe eine xls-Datei, in der unter anderem das Datum von übermorgen und eine Uhrzeit (immer 07:00) in einer Zelle stehen.
Ich habe das mit der Funktion: "=jetzt()+2" gelöst. Im Anschluss habe ich die Formatierung auf "benutzerdefiniert" gestellt und TT.MM.JJJJ "07:00:00" eingetragen.
Die Ausgabe im xls-Format ist OK: 26.11.2008 06:00:00.
Beim Betäigen eines Buttons wird die xls-Datei in einer csv-Datei umgewandelt und abgespeichert (Werte werden mit Semikolon getrennt).
Hier der Code:
Private Sub CommandButton1_Click()
Dim strSep As String, strDat As String, _
iCols As Byte, iRows As Integer, _
iR As Long, strTxt As String, strTmp, _
strPfad As String
strPfad = "c:\temp\"
Reset
With ActiveSheet
iRows = .UsedRange.Rows.Count
iCols = .UsedRange.Columns.Count
strSep = ";"
strDat = strPfad & ActiveSheet.Name & "_" & Format(Date, "YYYYMMDD") & ".csv"
Open strDat For Output As #1
For iR = 1 To iRows
strTmp = .Range(.Cells(iR, 1), .Cells(iR, iCols))
strTmp = WorksheetFunction.Transpose(WorksheetFunction.Transpose(strTmp))
strTxt = Join(strTmp, strSep)
Print #1, strTxt
Next iR
Close #1
End With
End Sub
Leider sieht die "mühsam" formatierte Zelle mit Datum und Zeit nun so aus: 26.11.2008 10:59.
Wie kann ich es vermeiden, dass nicht die aktuelle Uhrzeit, sondern weiterhin 07:00:00 übernommen wird.
Bin für jeden Vorschlag dankbar.
Gruß Herbert
Anzeige