VBA ohne Select
10.01.2007 16:24:51
FritzF
Ich habe mir mit dem Makrorecorder, den folgenden Code aufgezeichnet:
Sub Makro6()
Range("A6").Select
Selection.ClearContents
Range("A27").Select
Selection.ClearContents
Range("A40").Select
Selection.ClearContents
Columns("A:A").Select
Selection.Copy
Columns("P:P").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Sort Key1:=Range("P1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A6").Select
ActiveCell.FormulaR1C1 = "Modell"
Range("A27").Select
ActiveCell.FormulaR1C1 = "Modell"
Range("A40").Select
ActiveCell.FormulaR1C1 = "Modell"
Range("A1").Select
End Sub
Das ganze funktioniert auch, doch möchte ich den Code ohne das Selektieren.
Wie müsste ich so was machen?
Besten Dank zum voraus und die besten Grüsse
Fritz
Anzeige