Autotilpas på flettede celler

Det kan du, så vidt jeg ved ikke. Autotilpas går jo på rækker, og hvis en celle, er flettet over flere rækker, skulleden autotilpasse alle disse rækker til hele cellens højde, hvilket ville betyde at cellen selv skulle skifte højde, som igen ville betyde at de øvrige rækker skulleskifte højde, hvilet ville betyde....

Så det går altså ikke.

jkrons

Jeg har ikke flettet celler over rækker men over kolonner.

A1 og A2 er flettet.

MVH. TVC

tvc > jkrons argument gælder også for kolonner. Det gælder uanset hvordan du fletter.

er der så ikke en anden måde hvor den samme funktion opnås - når man nu skal anvende flettede celler?

Jeg har måske lige misforstået noget. Du siger at du kun fletter på tværs af kolonner. I det tilfælde virker autotilpas på rækker da helt normalt - Det gør den i hvert tilfælde i min oldgamle Excel :0)

Også i min :-)

Men faktisk skriver du at A1 og A2 er flettet, og det er jo netop på tværs af rækker, ikke kolonner. Derfor kan du ikke autotilpasse, da autotilpasningen så skulle gælde hele række 1 og hele række 2, men det kan jo ikke lade sig gøre, da den nye A1 jo rækker over både række 1 og række 2.

Godt set jkrons! Der kan man se betydningen af at være præcis i sin formulering - som tvc jo så var, men som jeg ikke så ;0(

Ups :-)

Jeg prøver lige igen og så med de rigtige referencer og en lidt mere præcis beskrivelse.

Jeg har flettet celle A1 og B1 og har valgt Ombryd tekst.

Herefter har jeg tilvalgt Autotilpas under Formater-Række-Autotilpas.

Når jeg så skriver i den ny flettede celle A1:B1 skulle den gerne tilpasse højden på rækken når indholdet overstiger en linie.

Det virker ikke i min version af Excel 2003 SP1.

Se det var jo en anden snak.
Kombinationen af flettede celler og ombryd betyder at Autotilpas ikke virker, men det er i virkeligheden Ombryd ikke fletningen, der er synderen.-med Ombrydning. Så det er ombrydbningen

Og så gik der lige koks i foretaget, men jeg håber at meningen er klar.

Her eren makro, som skulle kunne løse problemet:

Sub AutoFitMergedCellRowHeight()
    Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
    Dim CurrCell As Range
    Dim ActiveCellWidth As Single, PossNewRowHeight As Single
    If ActiveCell.MergeCells Then
      With ActiveCell.MergeArea
            If .Rows.Count = 1 And .WrapText = True Then
                Application.ScreenUpdating = False
                CurrentRowHeight = .RowHeight
                ActiveCellWidth = ActiveCell.ColumnWidth
                For Each CurrCell In Selection
                    MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth
                Next
                .MergeCells = False
                .Cells(1).ColumnWidth = MergedCellRgWidth
                .EntireRow.AutoFit
                PossNewRowHeight = .RowHeight
                .Cells(1).ColumnWidth = ActiveCellWidth
                .MergeCells = True
                .RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _
                CurrentRowHeight, PossNewRowHeight)
            End If
        End With
    End If
End Sub

Den er skrevet af
Jim Rech
Excel MVP

Der findes et alternativ til flettede celler, nemlig "Centrer over markering"
Den findes under Formater / Celler på fanebladet Justering ved Tekstjustering Vandret nederst i rullemenuen.
Den kan godt arbejde sammen med tekstombrydning automatisk. Har dog den ulempe at alt tekst bliver centreret i de celler den dækker over.

Glemte lige at skrive at den har nogle fordele mht sortering og kopiering, hvor flettede celler plejer at drille. Centerer over markering virker meget bedre her.

Hej jkrons

Jeg har indsat Sub'en i et modul og jeg har ligeledes forsøgt at indsætte den i et ark. Jeg kan bare ikke få den til at virke.

Jeg har taget udgangspunkt i samme eksempel som ovenfor hvor jeg har flettet A1 og A2 og valgt ombryd tekst.

Hvad gør jeg forkert eller hvad mangler jeg at gøre.

TVC

Hej bak

Den funktion er faktist ret smart men desværre skal teksten venstrestilles.

Hilsen

TVC

jkrons smider du lige et svar?

Så lukker jeg dette spørgsmål :-)

Done :-)

jkrons hvordan får jeg den kode til at virke. jeg har smidt den i et modul

Den skal bare afspilles som alle andre makroer.

jeg kan ikke få den til at virke. Kan der være en grund til den ikke virker i 2003?

Ikke umiddelbart.

Er det muligt at få denne omskrevet så den ikke virker på active.cell men på en hel kolonne, f.eks. c:d

Autotilpas virker vel altid på hele kolonner.

Jeg har lagt en call til modulet i arkets activate. Koden virker kun hvis jeg har markeret cellen, inden jeg aktiverer arket, så koden virker ikke til mit formål.

Ovenstående kode er beregnet til change og virker også fint til det formål.

Som funktionen virker finder den bredden på den aktive celle, og tager udgangspunkt i dens brdde og højde. Jeg tror ikke at den kan omskrives, så den dækker over to kolonner, men du kan tilføje en linie, der ved Activate først aktiverer en celle i en af de kolonner, du er interesseret i.

Jeg har prøvet at markere kolonnerne inden activate, men det returnerer en fejl, ellers har du ret i man kunne løse det ad den vej. Jeg kan prøve at kigge på det