CSV Wert auslesen und dann Zeile kopieren

Sub Import_Daten()



Dim sPfad As String

Dim wbQuelle As Workbook



'ScreenUpdating und PopUps deaktivieren'

Application.ScreenUpdating = False

Application.DisplayAlerts = False



'Dateipfad der Quelldatei'

sPfad = "Pfad zur Quelle.csv"



'Prüfen, ob Datei existiert'

If Dir(sPfad) > "" Then

    

    'Arbeitsmappe öffnen'

    Set wbQuelle = Workbooks.Open(sPfad, local:=True)

    

    'Daten kopieren und einfügen'

    wbQuelle.Worksheets(1).Range("A:CU").Copy ThisWorkbook.Worksheets(13).Range("A1")

    

    'Arbeitsmappe schliessen'

    wbQuelle.Close SaveChanges:=False

End If



'ScreenUpdating und PopUps aktivieren'

Application.ScreenUpdating = True

Application.DisplayAlerts = True





End Sub