Hallo zusammen,
ich bekam hier heute Morgen schonmal tolle Hilfe und vllt. kann mir nochmal jemand helfen?
Ich habe folgendes Modul:
Public Sub CopyRegion()
Dim rngTarget As Range
Dim rngSource As Range
' Clear region
Tabelle1.Range("C5:S38").Clear
' Copy data
Set rngSource = Tabelle2.Range("A2:I18")
Set rngTarget = Tabelle1.Range("C7")
rngSource.Copy
rngTarget.PasteSpecial xlPasteAll, xlPasteSpecialOperationNone, False, True
Application.CutCopyMode = False
Ich möchte innerhalb dieses Moduls gerne noch eine weitere Tabelle von Tabellenblatt 2 auf Tabellenblatt 1 kopieren.
Set rngSource = Tabelle2.Range("L2:O18")
Set rngTarget = Tabelle1.Range("C17")
Wie kann man das denn am besten einwursteln damit das klappt?
|