Speichern im FileFormat:=xlText

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub CSVExport() Dim sFile As Variant, msgAntwort As Variant Dim Daten As Range, Zeile As Object, Zelle As Object Dim strTemp As String On Error GoTo errorhandler With ActiveSheet sFile = Application.GetSaveAsFilename(InitialFilename:="DeineVorgabe" & ".csv", _ FileFilter:="CSV-Datei (*.csv), *.csv") If sFile = False Then Exit Sub If Dir(sFile) <> "" Then msgAntwort = MsgBox("Die Datei '" & sFile & "' besteht bereits. Möchten Sie die bestehende Datei ersetzen?", _ vbQuestion + vbYesNo, "Warnung") If msgAntwort = vbNo Then Exit Sub End If Set Daten = .UsedRange Close Open sFile For Output As #1 For Each Zeile In Daten.Rows For Each Zelle In Zeile.Cells If Zelle.Column = 1 Then strTemp = Zelle Else strTemp = strTemp & ";" & Zelle End If Next Zelle Print #1, strTemp strTemp = "" Next Zeile Close #1 End With MsgBox "Die Datei wurde erfolgreich exportiert.", vbInformation, "Export erfolgreich" Exit Sub errorhandler: MsgBox "Es ist ein Fehler aufgetreten. Die Datei konnte nicht vollständig exportiert werden.", vbCritical, "Fehlermeldung" End Sub

Hi Heiko
Ob CSV oder TXT ist eigentlich egal.
Wenn die Zeiten in einer bestimmten Spalte stehen, kannst du sie spezifisch formatieren. Im nachstehenden Beispiel werden Zeiten aus Spalte B (2) als "hh:mm" formatiert.
Gruss
Chris


Sub TXTExport()
Dim sFile As Variant, msgAntwort As Variant
Dim Daten As Range, Zeile As Object, Zelle As Object
Dim strTemp As String
On Error GoTo errorhandler
With ActiveSheet
sFile = Application.GetSaveAsFilename(InitialFilename:="DeineVorgabe" & ".txt", _
FileFilter:="TXT-Datei (*.txt), *.txt")
If sFile = False Then Exit Sub
If Dir(sFile) <> "" Then
msgAntwort = MsgBox("Die Datei '" & sFile & "' besteht bereits. Möchten Sie die bestehende Datei ersetzen?", _
vbQuestion + vbYesNo, "Warnung")
If msgAntwort = vbNo Then Exit Sub
End If
Set Daten = .UsedRange
Close
Open sFile For Output As #1
For Each Zeile In Daten.Rows
For Each Zelle In Zeile.Cells
If Zelle.Column = 1 Then
strTemp = Zelle
Else
If Zelle.Column = 2 And IsNumeric(Zelle) Then
strTemp = strTemp & ";" & Format(Zelle, "hh:mm")
Else
strTemp = strTemp & ";" & Zelle
End If
End If
Next Zelle
Print #1, strTemp
strTemp = ""
Next Zeile
Close #1
End With
MsgBox "Die Datei wurde erfolgreich exportiert.", vbInformation, "Export erfolgreich"
Exit Sub
errorhandler:
MsgBox "Es ist ein Fehler aufgetreten. Die Datei konnte nicht vollständig exportiert werden.", vbCritical, "Fehlermeldung"
End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread