ich bin auf der Suche nach einem Befehl mit dem ich die reinen Werte ohne Formatierung usw. aus einer CSV-Datei importieren kann. Ich habe den Prozess mit dem Recorder mal aufgezeichnet:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Aber dieser Code lies sich nicht in meinen Code einarbeiten:'//Very Simple CSV-Data import
Public Function ImportCSV(ByVal CsvPath As String, ByVal ToWorksheet_ As Worksheet) As Boolean
Dim CSVWorkbook As Workbook
On Error GoTo ErrHandler
Application.DisplayAlerts = False
Set CSVWorkbook = Workbooks.Open(CsvPath, origin:=xlWindows, local:=True)
Application.DisplayAlerts = True
Call Erase_Unwanted_Data(Ws:=CSVWorkbook.Sheets(1))
CSVWorkbook.Sheets(1).UsedRange.Copy Destination:=ToWorksheet_.Cells(loLetzte, 4) ' _
Zielzelle ggf. anpassen
Application.CutCopyMode = False
CSVWorkbook.Close False
ErrHandler:
End Function
Hat wer eine Idee?