|
Hallo,
ich versuche (auf Grund von der Empfehlung aus diesem und anderen Foren) möglichst auf .Select- bzw. .Active-Anweisungen zu verzichten. Allerdings muss ich sagen, dass ich manchmal nicht wirklich weiß wie das geht. Beispielhaft mal der folgende Code (teils aufgenommen mit dem Makro-Recorder). Wie würde man sich hier herleiten, wie man das
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Ohne die Select-Anweisung coded?
Würde mich sehr über eine Antwort freuen um weiter zu lernen und meine Kenntnisse zu verbessern, danke im Voraus!
Beste Grüße
Michael
Sub Makro3()
'
' Makro3 Makro
'
Dim ws2 As Worksheet
Set ws2 = Tabelle1
lrow = ws2.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Debug.Print (lrow)
'
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("E1").Select
ActiveCell.FormulaR1C1 = "MATWU & MRTNR"
Range("E2").Select
Columns("E:E").EntireColumn.AutoFit
ActiveCell.FormulaR1C1 = "=RC[-4]&RC[-1]"
Range("E2").Select
Selection.AutoFill Destination:=Range(ws2.Cells(2, 5), ws2.Cells(lrow, 5))
Columns("E:E").Select
ActiveSheet.Range(ws2.Cells(1, 1), ws2.Cells(lrow, 10)).RemoveDuplicates Columns:=5, Header:= _
xlYes
End Sub
|