/ Forside / Teknologi / Administrative / MS-Office / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
Excel Kollonne udvidelse
Fra : Mike Johnson


Dato : 04-05-05 13:13

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

 
 
Mike Johnson (04-05-2005)
Kommentar
Fra : Mike Johnson


Dato : 04-05-05 13:20

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


Jørgen Bondesen (04-05-2005)
Kommentar
Fra : Jørgen Bondesen


Dato : 04-05-05 18:05

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!



Mike Johnson (05-05-2005)
Kommentar
Fra : Mike Johnson


Dato : 05-05-05 22:21

Takker

On Wed, 4 May 2005 19:04:53 +0200, "Jørgen Bondesen"
<bondesen@cool.dk> wrote:

>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


Jørgen Bondesen (05-05-2005)
Kommentar
Fra : Jørgen Bondesen


Dato : 05-05-05 22:48

Hej Mike.

Velbekomme og tak for tilbagemeldingen.

--
Med venlig hilsen
Jørgen Bondesen


--
I am using the free version of SPAMfighter for private users.
It has removed 491 spam emails to date.
Paying users do not have this message in their emails.
Try www.SPAMfighter.com for free now!



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408846
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste