Laufzeitfehler 424 bei copy

Hallo und guten Abend,
ich möchte aus einer Exceldatei mit je 20 Sheets (Fragebogen) Werte aus einzelnen Zellen in eine Zieltabelle zusammenführen und dazu ein Makro nutzen. Leider komme ich nun an einer Stelle nicht weiter: Das Makro öffnet die Ursprungsdatei, dann geht es aber durch den Laufzeitfehler 424 nicht weiter. Ich habe einen Screenshot angehängt. Stundenlanges Googeln und Ausprobieren haben leider nichts gebracht. Kann es sein, dass hier irgend eine Schutzfunktion den weiteren Zugriff verhindert? Ich möchte doch nur den Wert aus dem Original Workbook G......_Nr2.xlsx, Sheet "Tabelle2", Zelle C4 in die Zieldatei, in der das Makro läuft, Workbook Mappe1.xlsm, Sheet "Tabelle1", Zelle C2 rüberkopieren. Und diese Schritte dann für weitere Werte wiederholen. That's it.
Vielen Dank für Eure Hilfe!
Herzliche Grüße,
Jan
Userbild

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jan,
sorry, aber selbst wenn der Code laufen würde, glaube ich kaum, dass er das macht, was er vielleicht machen soll.
Warum:
Du öffnest eine Datei "Gö......2.xlsx"
In dieser geöffneten Datei leerst du den Bereich A5:J999
Dann willst du aus dem geöffneten Blatt die Zelle C4 ins Blatt Mappe1 C2 kopieren
In der Zelle C4 des geöffneten Blattes steht aber nichts, weil du vorher den Bereich geleert hast.
Ich nehme an, du willst im Zielblatt den Bereich leeren, bevor du die Zelle aus dem Quellblatt kopierst.

Sub Janni_333()
Dim DateiName As String, wbQuelle As Workbook
DateiName = "C:\....."
Set wbQuelle = Workbooks.Open(Filename:=DateiName, UpdateLinks:=3)
ThisWorkbook.Worksheets("Tabelle1").Range("A5:J999").ClearContents
With wbQuelle.Worksheets("Frühstück")
.Unprotect
.Range("C4").Copy
ThisWorkbook.Worksheets("Tabelle1").Range("C2").PasteSpecial Paste:=xlPasteValues
ThisWorkbook.Worksheets("Tabelle1").Range("C2").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
.Protect
End With
Set wbQuelle = Nothing
End Sub

Gruß Werner

Sub Janni_333() Dim DateiName As String, wbQuelle As Workbook DateiName = "C:\....." Set wbQuelle = Workbooks.Open(Filename:=DateiName, UpdateLinks:=3) With wbQuelle.Worksheets("Frühstück") .Unprotect .Range("C4").Copy ThisWorkbook.Worksheets("Tabelle1").Range("C2").PasteSpecial Paste:=xlPasteValues ThisWorkbook.Worksheets("Tabelle1").Range("C2").PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False .Protect End With Set wbQuelle = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread