Tekstterugloop

[AjaciedNick]

Hoi,

Ik ben voor iemand die weinig ervaring heeft in excel een formulier aan het maken.

Eerst is hier een compacte lijst waarnaar met een code en verticaal zoeken een formulier per klant opgevraagd kan worden. Nu heb ik in de 'klant lijst' een paar notitie velden waar ik eigenlijk een enter tussen wil op het formulier. Dit doe ik doormiddel van alt-enter, maar dan wordt automatisch tekstterugloop aangezet waardoor heel de celhoogte uit verhouding is met de rest.

Kan ik tekstterugloop standaard uitzetten?

 

[Cobbe]

Deze voegt de cellen E8:E16 samen en past tekstterugloop toe:

Private Sub Workbook_Open()
    With Range("E8:E16")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = True
        .MergeCells = True
    End With
End Sub

Wraptext = False reset dit weer.

 

[AjaciedNick]

ik kan ook simpel knopje tekstterugloop uitzetten. maar iemand zonder excel kennis die kan dit niet / vindt dit irritant. Kan ik het niet op voorhand voorkomen?