Mein Problem ist folgendes. Ich möchte eine Excel-Datei als Textdatei rausschreiben. Leider werden die Texte, welche ein Komma enthalten, dabei in Hochkomma gesetzt. Wie kann ich das unterbinden?
Viele Grüße
Sylke
Sub offene_zu_unix()
Dim rC As Range
Dim i As Integer
Dim aufnull As String
Call fkt.wortersetzen_select(";", ":")
'Spalte für Bereinung einfügen
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Columns("A:A").Select
'Aufnullen der laufenden Nummer und Textzusammensetzen
For Each rC In ActiveSheet.Range("B1:B" & ActiveSheet.Range("B" & ActiveSheet.Rows.Count).End( _
xlUp).Row)
aufnull = ""
For i = 1 To 8 - Len(rC.Value)
aufnull = aufnull & "0"
Next i
If Len(rC.Value)
Viele Grüße
Sylke
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)