Selection.ClearContents
24.02.2009 14:36:54
Timmy
ich habe ein Turnierplan in Exclel, der eigentlich ganz gut funktioniert.
Ich habe des Weiteren einen Button, mit dem ich die Auslosung betaetigen kann. Dies funktioniert auch, jedoch gibt er mich nach dem auslosen einen Run-time Error '1004' und markiert folgende Spalte:
Selection.ClearContents
An was koennte das liegen?
Anbei der Code:
Sub Auslosung()
ActiveSheet.Unprotect
Range("T2:U17").Select
Selection.Sort Key1:=Range("U2"), Order1:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True
Range("V2").Select
Selection.ClearContents
Range("T2").Select
End Sub
Vielen Dank und liebe Gruesse
Timmy