Inspringen resetten vba

[Tweety1]

Ik gebruik de volgende macro om de tekst in te springen in een bepaalde kolom maar hoe kan ik deze macro omgekeerd gebruiken om alle inspringingen in een bepaalde kolom te verwijderen

Sub Loep()
Dim c
With Sheets(1)
For Each c In .Range("N1:N" & .Cells(Rows.Count, 2).End(xlUp).Row)
If Not IsEmpty(c.Value) Then
c.Offset(0, -12).IndentLevel = c
End If
Next
End With
End Sub

 

[Cobbe]

Draai hem dan met de waarde 0 ipv de waarde uit kolom N of c:

Sub Loep()
Dim c
 With Sheets(1)
  For Each c In .Range("N1:N" & .Cells(Rows.Count, 2).End(xlUp).Row)
   If Not IsEmpty(c.Value) Then
    c.Offset(0, -12).IndentLevel = 0 'c
   End If
  Next
 End With
End Sub

 

[Tweety1]

bedankt.
Hoe kan ik range aanpassen aan een tabel
Probleem wat zich nu voordoet is als er 2 tabellen onder elkaar staan dat hij stop op de regel c.Offset(0, -12).IndentLevel = c

 

[Cobbe]

Snap het niet echt maar deze kan je daarvoor gebruiken,
Je kan het bereik : Range("B1:B" & .Cells(Rows.Count, 2).End(xlUp).Row) aanpassen
naar eigen behoefte:

Sub Loep()
Dim c
 With Sheets(1)
  For Each c In .Range("B1:B" & .Cells(Rows.Count, 2).End(xlUp).Row)
    c.IndentLevel = 0
  Next
 End With
End Sub

 

[Tweety1]

ok het ging om de 1 macro die ik mee gaf daar liep tie op vast. Ik heb dat nu opgelost door
On Error Resume Next boven aan de macro te plaatsen