mit dem nachstehenden Code wird der Zellbereich ("BL4:BT22") der Tabelle1 kopiert und als Wert sowohl in den Zellbereich "D4:L12" der Tabelle1 als auch der Tabelle2 eingefügt. Nach Ausführung des Makros sind die Zellbereiche "D4:L12" sowohl in Tabelle1 als auch Tabelle2 markiert.
Wie kann man das abstellen?
Im Voraus besten Dank
mfg
Fritz
Sub Uebertrag()
Dim ws1, ws2
Set ws1 = ThisWorkbook.Worksheets("Tabelle1")
Set ws2 = ThisWorkbook.Worksheets("Tabelle2")
ws1.Range("BL4:BT12").Copy
ws1.Range("D4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ws2.Range("D4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub