Hi

Another way without VBA:

Select the cell(s), goto Data Validation Allow: Text Lenght
Data: Less than Maximum 30 Select "Error Alert" tab to create you
own error message if you want to else just OK

Hopes this helps.
....
Per


On 5 Aug., 03:42, "AltaEgo" <Somewhere@NotHere wrote:
You can do this with VBA.

Right-click the *tab of the relevant sheet.
Click View Code
Paste the following:

A1:C9 in the code restricts it to a specific range. If you need this
restriction, amend to the appropriate values.

Private Sub Worksheet_Change(ByVal Target As Range)
* * Const rEval = "A1:C9"

* * Set isect = Application.Intersect(Range(rEval), Target)
* * If Not isect Is Nothing Then
* * * * If Len(Target.Value) 30 Then
* * * * * * Target.Value = Left(Target.Value, 30)
* * * * * * MsgBox ("Value must not exceed 30." & vbCrLf & _
* * * * * * * * "Entered data trimmed.")
* * * * End If

* * End If
End Sub

If you do not need the restriction, use this:

Private Sub Worksheet_Change(ByVal Target As Range)

* * * * If Len(Target.Value) 30 Then
* * * * * * Target.Value = Left(Target.Value, 30)
* * * * * * MsgBox ("Value must not exceed 30." & vbCrLf & _
* * * * * * * * "Entered data trimmed.")
* * * * End If

End Sub

--
Steve

"sue@solotel" wrote in message

...



Hi
Is there a way to limit the number of characters that can be entered into
a
cell ?
I am setting up a database for export to another programme that can only
take a descriptor line of 30 characters- Skjul tekst i anførselstegn -

- Vis tekst i anførselstegn -