Zoek TEKST en verwijder kolom + kolom erna

Status
Niet open voor verdere reacties.
T

TWDR

Gebruiker
Lid geworden
26 jun 2017
Berichten
53
Help...... Ik heb jullie hulp nodig!!

Onderstaande code heb ik nu en deze werkt - hij verwijdert de gehele kolom waarin de waarde "TT" voorkomt. Echter wil ik ook de eerstvolgende kolom daarna verwijderen, maar dit lukt mij niet om in de code te verwerken. Ik heb x + 1 en andere varianten geprobeerd maar niks werkt. Hellup :(


Code: 
Sub DeleteCells()

    For Each x In Range("A1:L20")

        If x = "TT" Then
        
       x.EntireColumn.Delete
    
    Next
    
  
End Sub
 

Bijlagen

  • Testkolomverwijderen.xlsm
    13,4 KB · Weergaven: 24
Werkt alleen in het nietszeggende voorbeeldbestand. Je kan dan net zo goed zonder lusje werken.
Code: 
Sub VenA()
  r = Application.Match("tt", Rows(2), 0)
  If Not IsError(r) Then Columns(r).Resize(, 2).Delete
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan