VBA Probelm bei Datei einlesen und kopieren
Roland
ich ahbe mal wieder ein VBA Problem.
Ich möchte eine Datei öffnen, die Daten daraus in eine andere Datei(Tabellenblatt) kopieren.
Jetzt meldet Excel mir:
Laufzeitfelher '1004': Für diese Aktion müssen alle verbundene Zellen dieselbe Grö0ße haben.
War eigentlich der Meinung, dass die zu kopierende Datei immer den gleichen Aufbau hat, scheint aber wohl doch nicht zu sein.
Kann mir jemand den Code so ändern, dass das funktioniert?
Sub zv_kopieren()
Dim Ziel As Workbook
Set Ziel = ThisWorkbook 'für Excel Zwischenspeicherung
Application.Dialogs(xlDialogOpen).Show 'öffne Quelldatei
Worksheets(1).Range("1:65535").Copy 'kopiere alles zur Zieldatei
Ziel.Worksheets("ZV").Activate 'wechselt zur Zieldatei zurück
Ziel.Worksheets("ZV").Range("1:65535").PasteSpecial _
Paste:=xlPasteValues
Application.CutCopyMode = False 'setzt Zwischenablage in Datei ein
End Sub
Anzeige