Ich würde gerne mittels einem Makro eine csv-Datei öffnen, dort mittels "Text in Spalten" die Trennung in die Spalten vornehmen und gleichzeitig die Spalte 8 als Textfeld formatieren. Wenn ich es händisch mache, funktioniert es wunderbar. Das aufgezeichnete Makro hingegen funktioniert auch, aber die Spalte 8 formatiert er nicht als Text.
Was ist an diesem Makro falsch?
Sub Datenimportieren()
' Datenimportieren Makro
ActiveSheet.ShowAllData
Range("A2:N2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A2").Select
Workbooks.Open Filename:= _
"xxxxx"
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 2), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
)), TrailingMinusNumbers:=True
Range("A2:M2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Abgleich WS007-Journal MS_2022-04-19_REWE.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H2").Select
Selection.Copy
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Dim strDateiname As String
ChDrive "Q:\"
ChDir "\xxxxxx"
Application.Dialogs(xlDialogSaveAs).Show
End Sub
Vielen Dank für eure Antwort.Gruss Sigi