|
Hallo,
ich möchte von Datei A, welche geöffnet ist und auch das Makro enthalt, Daten aus einem Blatt 2, in eine andere geöfnete Excel-.Datei kopieren (wb).
Private Sub CommandButton2_Click()
'**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)
'hier ist etwas noch nicht in Ordnung
Workbooks("Datei A.xlsx").Activate
Sheets("Blatt 2").Range("A1:B95").Copy
Destination = wb.Sheets(1).Range("L1")
End Sub
Danke
|