Kopieren aus anderer Mappe
21.06.2013 11:32:43
Flo
habe vor 4 Tagen mit vba angefangen und bin leider immer noch ziemlich doof ;-)
Es geht um das simple kopieren eines Bereiches einer Tabelle, die ich vorher auswählen möchte. Das unten zusammengewurschtelte Makro fabriziert zumindest keinen Fehler, kopiert aber leider nichts!
Wer kann mir schnell helfen?
______________________________
Option Explicit
Sub importdata()
Dim Daten As Variant
Dim WB As Workbook
Dim TW As Workbook
Set TW = ThisWorkbook
'Datei öffnen
Daten = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*")
If Daten = False Then Exit Sub
Set WB = Workbooks.Open(Filename:=Daten)
'Kopieren der Daten aus der Quelldatei
WB.Worksheets("Tabelle1").Range("A1:B20").Copy
'Daten kopieren
TW.Worksheets("Tabelle1").Range("A1:B20").PasteSpecial Paste:=xlPasteValues
'Quelldatei schließen
WB.Close SaveChanges:=True
Set WB = Nothing
End Sub
__________________________________
Anzeige