wie kann ich eine Range (zum Beispiel A1:E500) KOMPLETT in ein anderes Tabellenblatt als Werte kopieren? Es sollen auch durch einen gesetzen Filter ausgeblendete Zeilen mitkopiert werden.
Danke!!!
VG,
Frank
'------- nach --- ----- von ---
Worksheets("Tabelle2").Range("A1:E500").Value = Worksheets("Tabelle1").Range("A1:E500").Value
Worksheets("Tabelle2").Range("A1:E500").FormulaR1C1 = Worksheets("Tabelle1").Range("A1:E500").FormulaR1C1
Es lassen sich auf diese Weise aber nur Inhalte übertragen (Werte oder Formeln), aber keine Formate.
Range(Cells(1, 1), Cells(500, 5))
Cells(1, 1).Resize(500, 5).Copy
Dim rngQuelle as Range
dim i as long
set RngQuelle = Union(Range("A1:B10), Range("C5:K11"), Range("M10:N12"))
for i = 1 to RngQuelle.Areas.count
sheets("Tabelle2").Range(RngQuelle.Areas(i).Address).Value = RngQuelle.Areas(i).Value
Next
die Area ist ein Range-Objekt und stellt die rechteckigen, lückenlos zusammenhängenden Teilbereiche einer komplexen Range dar.
Option Explicit
Sub Kopie()
Worksheets("Tabelle2").Range("A2:A6").CurrentRegion
Worksheets("Tabelle2").Range("A2:A6").Copy _
Worksheets("Tabelle1").Range("J26")
End Sub
Gruß Hajo