Aufgezeichneten Code optimieren
08.10.2012 16:17:40
Fritz_W
ich habe untenstehendes Makro aufgezeichnet um in der (aktiven) Tabelle1 den Zelllbereich BL4:BT12 zu kopieren und den Inhalt dieses Zellbereichs in der gleichen Tabelle(Tabelle1)in den Zellbereich D4:L12 einzufügen.
Der Code sollte nun so verändert werden, dass das Makro aus jedem Tabellenblatt der Arbeitsmappe gestartet werden kann.
Im Voraus besten Dank für eure Unterstützung.
mfg
Fritz
Sub Uebertrag()
Range("BL4:BT12").Select
Selection.Copy
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub