Anführungszeichen in txt-Datei
09.11.2005 21:31:24
Christian
ich lasse aus xls Dateien txt dateien erstellen.
Was nicht funktioniert ist die Datumserkennung. In der Excel-Zelle ist das Datum 03. Nov 05 und oben in der Eingabeleiste 03.11.2005.
Wenn ich nun die Zelleninhalte mit Verketten zusammenfüge, dann ist das Datum in der Form 35876 (ungefähr). Wenn ich das Problem nicht wegkriege ist das nicht soo schlimm.
Aber die andere Sache ist die, dass in jeder Zeile der neuen txt.-Datei zu Beginn und Ende der Zeile Anführungsstriche stehen. Wie kann ich diese wegbekommen?
--------
Sub uebertragen()
Dim exFile As Workbook
Dim i, n As Integer
Dim LastRow As Integer
Dim wbnew As Workbook
Dim wks1 As Worksheet
Dim namen As String
Set wks1 = ThisWorkbook.Sheets("neu")
n = wks1.Range("E1")
For i = 3 To n
'Datei öffnen
Set exFile = Workbooks.Open("C:\daten\" & wks1.Range("B" & i) & ".xls")
namen = "c:\tsdaten\" & wks1.Range("B" & i)
LastRow = Cells(Rows.Count, 5).End(xlUp).Row
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("b1").Copy Range("a8")
Range("A8").Select
Selection.AutoFill Destination:=Range("A8:A" & LastRow), Type:=xlFillDefault
wks1.Range("I8").Copy exFile.Sheets(1).Range("i8") 'kopiert formel für verkettungen
Range("i8").Select
Selection.AutoFill Destination:=Range("i8:i" & LastRow), Type:=xlFillDefault
exFile.Sheets(1).Range("i8:i65536").Copy
exFile.Sheets(1).Range("a1").PasteSpecial Paste:=xlValues
Columns("b:i").Delete
exFile.SaveAs Filename:=namen & ".txt", FileFormat:=xlText
exFile.Close
Next i
End Sub
-----------
schönen Gruß
Christian