|
Moin,
hab die Deklaration im Menü aktiviert.
Wer kann bitte helfen?
Private Sub CommandButton2_Click()
Dim wb As Workbook
Dim ws As Worksheet
'**Dateifilter**
strFilter = "Excel-Dateien(*.csv*), *.csv*"
'**Vorbelgung Pfad**
ChDrive "D"
ChDir "D:\xxx\"
'**Den im Dialogfeld gewählten Namen auslesen**
strFileName = Application.GetOpenFilename(strFilter)
'**Prüfen, ob eine gültige Datei ausgewählt wurde**
If strFileName = False Then Exit Sub
'**Gewählte Datei öffnen**
Set wb = Workbooks.Open(strFileName)
Set ws = ActiveSheet
Workbooks("Datei A.xlsx").Worksheets("Tabelle 1").Range("A1:B95").Copy
'Destination = wb.Worksheets(1).Range("L1")
ActiveSheet.Paste Destination:=Workbooks(wb).Range("L1")
'Workbooks(wb).Worksheets(ws).Range("L1").Paste
|