Kan cellen låses, så der kun kan tastes tal?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(Target) Then
Target = ""
MsgBox " indtast tal"
Target.Select
End If

sæt dette ind i ark modulet

Den kan jeg ikke lige få til at virke......
Har prøvet i modulet

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:C600")) Is Nothing Then
' ret ovenstående til indtastningsområdet
If Not IsNumeric(Target) Then
Target = ""
MsgBox " indtast tal"
Target.Select
End If
End If
End Sub

med denne kan du styre det område der skal være tal i

der manglede en

End Sub

i den første

har du en mail så kan jeg sende et eksempel ark

Er det slet ikke muligt at gøre det uden makro?
Var det ikke muligt i de ældre version af Excel, at låse funktionen via de indbygget funktioner i Excel? Det har måske bare været en drøm/-)

Det behøver ikke være så kompliceret.


Placer markøren i cellen
Vælg Data->Datavalidering
I den dialogboks der fremkommer vælger du på første fane, hvilke kriterier der skal være opfyldt.
På de 2 andre faneblade kan du indtaste en meddelelse samt en fejlmeddelelse.

Skal alle talværdier være tilladt vælger du som tilladt værdi: Brugerdefineret, og indtaster denne formel: =ER.TAL(A1)
(Udskift A1 med aktuel celle)

Marker de celler der skal have inputvalidering.

Gå i Menuen "Data" "Datavalidering"
Vælg decimal i rullelisten "tillad"
Indtast over og undergrænser fx. 100.000.000.000.000.000 og -1000.000.000.000.000.000

Gå fx i fanebladet: Meddelelse og skriv din egen fejlmeddelelse , fx "Her kan kun indtastes tal"

Tryk OK

Skulle lige prøve mig frem. Afhængig af fejlmeddelse (stop/advarsel/infomation) fandt jeg frem til at stop er den bedst løsning, da man så skal ændre indholdet til tal.
Tak for hjælpen
Spørgsmålet lukkes

Ja, det afhænger jo af situationen, hvad der er bedst.

Godt det ikke altid er nødvendigt med makroer.

Jep, og kanon for denne webside