Hallo Leute,

zuers schöne Sonntag. Ich versuch per Macro ein cell aus CVS-File im Excel Workbook (cell) zu importieren, aber irgenwie klappt nicht.

Ich bin ganz neu in VBA und freue mich sehr auf ihre Hilfe.

Mein Code finden Sie unten. Die letzte zeile funktionniert nicht (Zuweisung).

Sub x()
   Dim varName As Variant
   Dim MyWorkbook As Workbook
   Dim CustomerWorkbook As Workbook
   
   Set MyWorbook = Application.ActiveWorkbook
   varName = Application.GetOpenFilename("CSV-Dateien (*.csv),*.csv,Alle Dateien (*.*),*.*")
   If varName = False Then Exit Sub
   Workbooks.OpenText varName, Local:=True
   Set CustomerWorkbook = ThisWorkbook
   MyWorkbook.Worksheets(2).Range("H40").Value = CustomerWorkbook.Worksheets(1).Range("Q16").Value
   
End Sub