VBA ohne Select
10.01.2007 16:25:47
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