Zellen von einer in die andere Tabelle kopieren
16.10.2008 10:53:15
einer
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel.Worksheet
letzteZeile = ThisWorkbook.Worksheets("Tabelle2").UsedRange.SpecialCells(xlCellTypeLastCell).Row
ThisWorkbook.Sheets("Vorlage").Copy After:=Worksheets(Worksheets.Count)
Set wks = ThisWorkbook.ActiveSheet
wks.Name = "Monatsbericht " & ComboBox1.Text & " " & ComboBox2.Text
Set Quell = Worksheets("Tabelle2")
wks.Cells(i, "A").Copy = Quell.Cells(i, "A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False