Gültigkeit für alle Tabellenblätter?
29.02.2008 08:31:54
alex
kleine Frage:
die Bedingungen dieses Makros (s. unten) in "Diese Arbeitsmappe", sollen für die Tabellenblätter 5 (Schießen 1. Hj.) und 6 (Schießen 2. Hj.) gelten.
Kann mir jemand sagen wie ich das schreiben muss?
Option Explicit
Private Sub Workbook_open()
ActiveSheet.Unprotect "red13"
Range("A7:P124").Select
Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A7").Select
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect "red13", userinterfaceonly:=True
End Sub
gruss
alex