Makros einbinden
20.07.2003 12:45:32
Joerg
Es soll direkt mit dem Öffnen der Arbeitsmappe gestartet werden.
Wie bekomme ich das hin ??
Sub SortTest()
' SortTest Makro
ActiveSheet.Unprotect "joerg"
Range("B5:I16").Select
Selection.Sort Key1:=Range("G5"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B12").Select
ActiveSheet.Protect "joerg"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Anschließend soll noch folgendes Makro eingebaut werden, damit der Cursor vom Start weg nur in nicht geschützte zellen springt.
Private Sub Workbook_Open()
Worksheets("Tabelle1").Range("A1").Select
Worksheets("Tabelle1").EnableSelection = xlUnlockedCells
End Sub
Danke Joerg