|
Hallo
das geht noch einfacher und kürzer, ganz ohne Paste Special, weil du xlPasteAll verwendest! Dasselbe gilt für den zweiten Kopier Vorgang.
Set rngSource = Tabelle2.Range("A2:I18")
Set rngTarget = Tabelle1.Range("C7")
rngSource.Copy rngTarget
mfg Nobody
|