AW: Hochkommas in Textdateien
20.12.2007 11:35:50
fcs
Hallo Sylke,
du muss die Daten aus Spalte A anders in eine Textdatei schreiben als via Speichern als CSV-Datei.
CSV-Dateien benutzen das Komma als Trennzeichen zwischen Datenfeldern. Damit das korrekt funktioniert werden Text mit Komma oder anderen störenden Zeichen in Anführungszeichen gesetzt.
Nachfolgend ein Beispiel wie du die Zellinhalte aus Spalte A direkt in ein Textfile schreibts.
Zur Vereinfachung hab ich auch einige der Select-Anweisungen entfernt und den Code zur Ermittlung der letzen Daten-Zelle in Spalte B modifiziert. Die Verwendung von Cells statt Range ergibt meist einfacheren Code und ist etwas schneller in der Ausführung.
Gruß
Franz
Sub offene_zu_unix()
Dim rC As Range
Dim i As Integer
Dim aufnull As String
Dim wks As Worksheet, ff As Byte
Set wks = ActiveSheet
'Call fkt.wortersetzen_select(";", ":")
With wks
'Spalte für Bereinung einfügen
.Columns("A:A").Insert Shift:=xlToRight
'Aufnullen der laufenden Nummer und Textzusammensetzen
For Each rC In .Range(.Cells(1, 2), .Cells(.Rows.Count, 2).End(xlUp))
aufnull = ""
For i = 1 To 8 - Len(rC.Value)
aufnull = aufnull & "0"
Next i
If Len(rC.Value)