ich habe ein Problem beim kopieren (mittels VBA) von Daten aus einer CSV Datei. Ich möchte nur die Werte kopieren nicht aber die Formatierung usw.....
Leider weiß ich nicht wie ich das machen soll. Ich habe schon eine weile rum gespielt aber kein Ergebnis erhalten. Der Code Abschnied der für das kopieren zuständig ist wäre dieser hier:
'//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
Ich würde mich freuen, wenn jemand Rat weiß.