immer wieder Select ...
05.02.2004 09:12:44
Peter
habe mir, mit Makro aufzeichnen, diesen Makro "zusammen geschustert". Was mich jetzt sehr stört, ist das ewig wiederholte - Select.
Kann dieser Makro mit weniger Select verkleinert werden und dadurch auch ein bischen schneller in der Ausführung werden ?!?!
Sub Test()
ActiveSheet.Unprotect Password:="test"
Application.Goto Reference:="Liste"
Selection.Sort Key1:=Range("M6"), Order1:=xlDescending, Key2:=Range("E6") _
, Order2:=xlAscending, Key3:=Range("M6"), Order3:=xlDescending, Header _
:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("Januar").Select
Range("E7").Select
If Sheets("Januar").Range("L7") <= Sheets("Januar").Range("T4") Then
nach_Unregelmäßigkeiten
Sheets("Januar").Select
Range("E7").Select
Test
ElseIf Sheets("Januar").Range("L7") >= Sheets("Januar").Range("T4") Then
Exit Sub
End If
ActiveSheet.Protect Password:="test", Contents:=True, userInterfaceOnly:=True
Range("A5").Select
End Sub
Gruß Peter
Anzeige