Kopieren von Spalten aus verschiedenen Dateien
21.06.2017 09:16:15
Spalten
bin neu hier im Forum und hoffe, dass mir jemand mit meinem Problem helfen kann.
Dazu muss allerdings gesagt werden, dass ich noch nicht sehr viel Erfahrung mit VBA programmierung vorweisen kann :(
Folgende Situation:
Ich habe 2 Excel Dateien, "Projekliste" und "Testdatei", die im selben Verzeichnis liegen.
Ich möchte gerne in der Testdatei ein Button erstellen, der alle Inhalte aus dieser Datei (bis auf Sheet1, wo der Button sein soll) löscht. Außerdem soll danach die Datei Projektliste geöffnet werden.
Soweit (wenn wahrscheinlich auch recht umständlich) kein Problem.
Nun sollen unterschiedliche Spalten aus Projektliste Sheet1 sowie mehrere komplette Sheets (Sheet2, Sheet 3 usw) in die Testdatei kopiert werden.
Hier tu ich mir mit der Selection und dem Kopieren etwas schwer.
Bisher habe ich folgenden Code:
Sub deletecopy()
'Sheets reinigen
ThisWorkbook.Sheets("Sheet2").Cells.Clear
ThisWorkbook.Sheets("Sheet3").Cells.Clear
ThisWorkbook.Sheets("Sheet4").Cells.Clear
ThisWorkbook.Sheets("Sheet5").Cells.Clear
ThisWorkbook.Sheets("Sheet6").Cells.Clear
'Projektliste öffnen
Workbooks.Open ("C:\Users\TIM\Desktop\Reporting VBA\Projektliste.xlsx")
ActiveWorkbook.Sheets("Projektliste").Activate
ActiveWorksheets.Range("A:A", "F:F", "H:H").Select
Selection.Copy
End Sub
1.Irgendwie funktioniert das mit dem kopieren nicht, also das Wechseln zwischen den unterschiedlichen Dateien.
2. Wie kann man komplette Sheets von Projektliste in die Testdatei kopieren?
3. Am ende bekomme ich eine Fehlermeldung "Ein Objekt wird benötigt".?
Ich hoffe, irgendjemand kann mir das verständlich erklären :(
Danke schonmal im Voraus.
Viele Grüße
Tim
Anzeige