Knap funktion med ref. til andet ark.

Lav en kontrolelementknap på arket Stamoplysninge i celle C32. Læg dernæst denne kode på knappen

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Sheets("Timesedler").Select
    ActiveSheet.Range("D4:G6").ClearContents
    ActiveSheet.Range("C13:J15").ClearContents
    Sheets("Ark1").Select
    Range("c32").Select
    Application.ScreenUpdating = True
End Sub

Ret selv til med de områder i Timesedler, der faktisk skal slettes.

Rettelse:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Sheets("Timesedler").Select
    ActiveSheet.Unprotect
    ActiveSheet.Range("D4:G6").ClearContents
    ActiveSheet.Range("C13:J15").ClearContents
    ActiveSheet.Protect
    Sheets("Ark1").Select
    Range("c32").Select
    Application.ScreenUpdating = True
End Sub

Jeg får en fejl meddelse efter jeg har indsat mine områder der skal slettes.Min kode ser sådan ud nu
Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Sheets("Timesedler").Select
    ActiveSheet.Unprotect
    ActiveSheet.Range("C8:N38").ClearContents
    ActiveSheet.Range("C52:N82").ClearContents
    ActiveSheet.Range("C96:N126").ClearContents
    ActiveSheet.Range("C140:N170").ClearContents
    ActiveSheet.Range("C184:N214").ClearContents
    ActiveSheet.Range("C228:N258").ClearContents
    ActiveSheet.Range("C272:N302").ClearContents
    ActiveSheet.Range("C316:N346").ClearContents
    ActiveSheet.Protect
    Sheets("Ark1").Select
    Range("c32").Select
    Application.ScreenUpdating = True
End Sub

Er der andre steder der skal rettes?
Fejl meddelsen hadder
Run-time error 9
Subscript out af range
MVH
Petert

Kan jeg ikke få lidt hjælp til det med knappen, jeg kan ikke få det til at virke.Jeg gør følgende.
Vælger Vis,Værktøjslinjer,tilpas,faneblad komandoer,kontrolelementer til venstre,Trykker på knappen til højre og fører den iførste omgang op til værktøjslinjen Og her går jeg i stå?? Ps jeg har vis værktøjslinjer kontrolelementer åben.

Det lysner nu er jeg klar på det med selve knappen.

Kodfen køerer helt upåklageligt hos mig. Er du sikker på, at "Timesedler" er stavet ens både i kode og i ark?

Er det dette der kan være problemet med min fejl?
ActiveSheet.Protect
    Sheets("Ark1").Select
    Range("c32").Select
    Application.ScreenUpdating = True
End Sub

Jeg har ikke noget ark 1 i min situration
MVH
Petert

Der var forskel på Lille og stor t i timesedler det er rettet med der er stadig samme fejl

Men nu sletter den de områder den skal, men melder stadig fejl

Har du mulighed for at sende arket til kronsell snabela adslhome dot dk?

Det gør jeg nu
MVH
Petert

jkrons
Det virker nu læg et svar så vi kan lukke dette.
Tak for hjælpen
MVH
petert

Her er et svar. Fejlen var selvfølgelig min, da der skulle hav e stået "Stamndata" i stedet for "Ark1".