Inhalte Kopieren

Hallo,
ich möchte, dass bestimmte Inhalte einer Excel-Tabelle in eine Zweite kopiert werden. Beim Druck auf den Button soll in der zweiten Datei jeweils eine neue Registerkarte erstellt werden.
Die Inhalte von Tabelle 1 (Quelle) befinden sich in den Zellbereichen B12 - B42 sowie O12 - O42. Diese beiden Datenreihen solllen in Tabelle 2 (Ziel) in die Spalte A (B12 - B42) sowie B (O12 - O42) eingetragen werden.
Sollte, wie beschrieben, ein weiteres Mal der Button betätigt werden, muss in Tabelle 2 eine weitere Registerkarte erstellt werden. Die Daten werden dort wieder aus Tabelle 1 in die Spalten A und B eingetragen.
Da ich in Sachen Excel und VBA nicht sehr bewandert bin, freue ich mich über jeden Vorschlag.
Danke und Gruß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub kopieren() Dim n AS String, n1 As String, blatt as String n = ActiveWorkbook.Name Application.ScreenUpdating = False Workbooks.Open Filename:="C:\...u.s.w ' Hier Pfad der Zieldatei n1 = ActiveWorkbook.Name With Workbooks(n1) Sheets.Add blatt = ActiveSheet.Name End with With Workbooks(n) .Sheets("Tabelle1").Range("B12:B42").Copy Destination:=Workbooks(n1).Sheets(blatt).Range(" _ A1") .Sheets("Tabelle1").Range("O12:O42").Copy Destination:=Workbooks(n1).Sheets(blatt).Range(" _ B1") End with ActiveWorkbook.Close Application.ScreenUpdating = True End Sub

Servus,
ganz einfach:


Sub kopieren()
Dim n AS String, n1 As String, blatt as String
n = ActiveWorkbook.Name
Application.ScreenUpdating = False
Workbooks.Open Filename:="D:\Daten\auswertung.xls"
n1 = ActiveWorkbook.Name
With Workbooks(n1)
Sheets.Add
blatt = ActiveSheet.Name
End with
With Workbooks(n)
.Sheets("Tabelle1").Range("B12:B42").Copy Destination:=Workbooks(n1).Sheets(blatt).Range(" _
_
A1")
.Sheets("Tabelle1").Range("O12:O42").Copy Destination:=Workbooks(n1).Sheets(blatt).Range(" _
_
B1")
End with
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub

Sonst brauchst du keine Änderungen vornehmen, ausser "Tabelle1" heisst nicht so, sondern "irgendwie". Dann musst du das natürlich auch noch ändern.
Den Code kannst du in ein Modul, oder in DieseArbeitsmappe, odser in das entsprechende Tabellenmodul (ist das beste) kopieren.
Alt+F11, u.s.w.
Probiers mal an einer Testdatei aus und wenn noch was haken sollte, meld dich nochmal.
Du musst auswertung dann auch mal separat öffnen, da es eigentlich lt. Code geschlossen wird, um zu sehen, dass es funktioniert.
Gruß
Chaos

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread