Automatisk indrykning af tekst

Tja...
Du kan i kolonne D skrive =REPT(" ";C1) &B1 - det giver dig indryk.
Og så kan du skjule din kolonne B.

Bemærk formlen er fra en engelsk excel, men den danske funktion hedder nok ca. det samme.

Indrykningen bliver ikke lige så stor ved at lave mellemrum, som når man bruger indrykningsfunktionen under "Formater celler", og så får jeg ikke det overblik jeg gerne vil have.

Jeg havde mere tænkt i retning af en makro, som automatisk indrykker teksten i kolonne B når der tastes et tal i kolonne C.

Tja - det kan man også, men du kunne også vælge

=REPT("  ";C1) &B1

Så sparer du bøvlet med at kode en makro

En mulig makro kunne se sådan her ud

Sub indryk()
    Dim c As Range
    For Each c In Range("B1", Range("B1").End(xlDown)).Cells
        If IsNumeric(c.Offset(0, 1).Value) Then
            c.InsertIndent c.Offset(0, 1).Value
        End If
    Next
End Sub

Den virker på alle tekster i kolonne B med mindre der er huller i datasættet (altså tomme celler i kolonne B)

Den fejler på den sidste linje:
  c.InsertIndent..........

Hvilken fejl?
Og hvilken version af Excel?

Excel 2007

Application-defined or object-defined error

Har du tal større end 15 i kolonne c?
Send mig evt arket

Du kan opdatere med


Sub indryk()
    Dim c As Range
    For Each c In Range("B1", Range("B1").End(xlDown)).Cells
        If IsNumeric(c.Offset(0, 1).Value) Then
            If c.Offset(0, 1).Value <= 15 Then
                If c.IndentLevel > 0 Then c.InsertIndent -c.IndentLevel
                c.InsertIndent c.Offset(0, 1).Value
            End If
        End If
    Next
End Sub


Så er koden robust over for tal over 15 og kan køres flere gange.

Det virker stadig ikke. Sender filen til den mail adresse der står på din hjemmeside.

Her var løsningen:

Dim c As Range
    For Each c In Range("B1", Range("B1").End(xlDown)).Cells
        If IsNumeric(c.Offset(0, 1).Value) Then
            If c.Offset(0, 1).Value <= 15 And c.Offset(0, 1).Value > 0 Then
                If c.IndentLevel > 0 Then c.InsertIndent -c.IndentLevel
                c.InsertIndent c.Offset(0, 1).Value
            End If
        End If
    Next