Activate geht, geht nicht !
29.01.2009 15:38:00
Peter
habe ein Problem beim Activieren des Blattes. Er sortiert einfach nicht.
Gehe ich in ein anderes Blatt, führe hier z.B. den Spezialfilter aus, und gehe dann Wieder in Daten, dann
macht er es.
Private Sub Worksheet_Activate()
Application.EnableEvents = False
Application.ScreenUpdating = False '
Worksheets("DATEN").Unprotect Password:="test"
Call Sortieren(Sheets("Schülerdaten"))
'Worksheets("DatEN").Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:=" _
test"
'Worksheets("DATEN").Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:=" _
test"
Application.ScreenUpdating = True '
End Sub
Sub Sortieren(meTab As Worksheet)
With meTab
.Range("Database").Sort Key1:=.Range("B2"), Order1:=xlAscending, Key2:=.Range("C2") _
, Order2:=xlAscending, Key3:=.Range("D2"), Order3:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
End With
Worksheets("DATEN").Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="test"
End Sub
Habt Ihr vielleicht eine Idee?
MFG. Peter