Marko fehler, Daten kopieren
david.a2k
ich möchte die Daten eines Tabellenblatt eines Excel Sheets in das Tabellenblatt eines anderen Eccel Sheets kopieren. Vorher müssen aber die vorhandenen Daten gelöscht werden, da die neuen Daten weniger zeilen haben könnten.
Bei diesem Makro Code kommt immer eine Fehlermeldung in der letzten Zeile:
die Paste Methode des Worksheet Objektes konnte nicht ausgeführt werden.
Sub Basisdaten_einfuegen()
Dim quelle As Variant
Dim ziel As Variant
Set ziel = ActiveSheet
DateiÖffnen
Set quelle = ActiveSheet
ActiveSheet.UsedRange.Select
quelle.UsedRange.Copy
ziel.Activate
Sheets("Basisdaten").Select
Cells.Select
Selection.Clear
Cells.Select
ActiveSheet.Paste
______________________________________________________________
Function DateiÖffnen()
Dim quelle As Variant
'MsgBox "Bitte wählen Sie eine Datei aus"
quelle = Application.GetOpenFilename("Microsoft Excel-Dateien,*.xls")
Workbooks.Open Filename:=quelle, UpdateLinks:=1
End Function
Kann mir jemand helfen?
Danke und Gruß
David
Anzeige