Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1024to1028
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Formatierung von xls nach csv

Formatierung von xls nach csv
24.11.2008 10:58:25
xls
Hallo Experten,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatierung von xls nach csv
24.11.2008 11:12:31
xls
Hallo,
das musst du explizit so angeben.
z.B. dein Datum in A

For iR = 1 To iRows
strTmp = .Range(.Cells(iR, 1), .Cells(iR, iCols))
strTmp = WorksheetFunction.Transpose(WorksheetFunction.Transpose(strTmp))
strTmp(0)=Cells(iR,1).Text
strTxt = Join(strTmp, strSep)
Print #1, strTxt
Next iR


Gruß
Rudi

AW: Formatierung von xls nach csv
24.11.2008 11:28:29
xls
Hi Herbert,
formatiere die Zelle TT.MM.JJ hh:mm:ss
Formel der Zelle: =HEUTE()+55/24
Gruß
Reinhard
AW: Formatierung von xls nach csv
24.11.2008 11:37:21
xls
Hallo,
mach es doch so
Beispiel:
 AB
124.11.2008 07:00:00Format der Zelle A1
2 TT.MM.JJJJ hh:mm:ss

Formeln der Tabelle
ZelleFormel
A1=HEUTE()+7/24

Gruß Tino
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige