ich würde gerne bestimmte Spalten aus der einen Datei in eine geschlossene Datei kopieren.
In der geschlossenen Datei sollen die Daten als Wert ab A1 eingetragen werden, die vorhandenen Daten in dieser Tabelle sollen überschrieben werden, danach soll die Datei offenbleiben.
Aus einem anderen Threads aus diesem Forum habe ich u. g. Makro gefunden. Leider bekomme ich die Fehlermeldung
Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler bei
.Cells(loZeileZiel, loSpalteZiel).PasteSpecial Paste:=xlPasteValues
Da ich mit VBA absolut nicht auskenne, weiß ich nicht was ich wo ändern muss. Ich würde mich freuen, wenn mir einer dabei behilflich sein könnte. Im Voraus vielen Dank.
Sub KE_erstellen()
Dim intI As Integer, loZeileZiel As Long, loSpalteZiel As Long
Dim wbZiel As Workbook, wsZiel As Worksheet, Spalte As Variant
'festlegen der Zielzeile
'loZeileZiel = 1
'festlegen der Zielspalte (Startspalte) A=1 ...
loSpalteZiel = 1
Spalte = Array(2, 3, 5, 7, 8, 9, 14, 15, 16, 140) Spalte B, C, E, G, H, I, K, L, M, N; O; P; Q, R, T, EK
Application.ScreenUpdating = False
'Datei öffnen und Zielblatt zuweisen
Set wbZiel = Workbooks.Open("C:\Users\X\OneDrive - X\Desktop\Neuer Ordner\TO DO Übersicht.xlsx")
Set wsZiel = wbZiel.Worksheets("Tabelle2")
For intI = 0 To 20
With ThisWorkbook.Worksheets("GESAMT")
'Bereich kopieren
.Range(.Cells(1, Spalte(intI)), .Cells(.Cells(.Rows.Count, Spalte(intI)).End(xlUp).Row, Spalte(intI))).Copy
With wsZiel
'kopierte Daten als Werte einfügen
.Cells(loZeileZiel, loSpalteZiel).PasteSpecial Paste:=xlPasteValues
loSpalteZiel = loSpalteZiel + 1
End With
End With
Next
'Zielblatt speichern und schließen
'wbZiel.Close True
'Kopierspeicher leeren
Application.CutCopyMode = False
'Variablen aufräumen
Set wbZiel = Nothing: Set wsZiel = Nothing
End Sub