Wie kann ich Daten von einer Tabelle in eine andere kopieren. Zb. C6:j6 kopieren und dann sollte ein auswahlfenster aufgehen indem ich die Tabelle auswählen kann wo ich die Daten an die gleiche stelle einfügen kann.
Gruß Mike
Sub t()
Dim WB As Workbook
Dim vWB As Variant, rng As Range
Set rng = Selection
vWB = Application.GetOpenFilename(FileFilter:="Microsoft Excel-Dateien (*.xlsx), *.xlsx", Title: _
="Eine Datei auswählen")
If vWB = False Then Exit Sub
Application.ScreenUpdating = False
Set WB = Workbooks.Open(vWB)
rng.Copy WB.Worksheets(1).Range(rng.Address)
WB.Save
WB.Close
End Sub
cu