Mej Mike.
Jeg ligger for døden.
Måske noget henaf dette, som placeres i arket:
Option Explicit
Const columnNo As Long = 3
Const pw As String = "jb"
Private Sub Worksheet_Change(ByVal Target As Range)
'Jorgen Bondesen, 20050504
If Range(Target.Address).Column = columnNo Then
On Error Resume Next
Me.Unprotect (pw)
Me.Columns(columnNo).EntireColumn.AutoFit
Me.Protect (pw)
End If
End Sub
--
Med venlig hilsen
Jørgen Bondesen
"Mike Johnson" <powerviper4@hotmail.com> wrote in message
news:jffh7191grn4o5rqie9q1mrstdqs8uj7hm@4ax.com...
> Håber at I overlever de stavefejl som sneg sig ind :-/
>
> On Wed, 04 May 2005 14:13:19 +0200, Mike Johnson
> <powerviper4@hotmail.com> wrote:
>
>>Hej
>>
>>Kan man få Excel til automatisk at udvide en kollonne (alt efter hvor
>>meget der bliver skrevet i en celle) ? fx. i et låst ark
>>
>>Man kan vht. Ombryd text (men denne virker kun nedad og ikke henad).
>>
>>På forhånd tak
>>
>>MJ
>
--
I am using the free version of SPAMfighter for private users.
It has removed 444 spam emails to date.
Paying users do not have this message in their emails.
Try
www.SPAMfighter.com for free now!