0 leden en 1 gast bekijken dit topic.
.....dus als in kolom B1 een tekst staat.......
@SoftAidje hebt gelijk, maar het snelste is wat jij al voor mijn hebt gemaaktNu is het ipv rijen de kolommen.
dus als in kolom B1 een tekst staat die overbodig is moet heel de kolom B weg, maar er zijn meerdere kolommen met een bepaalde tekst dat ligt aan de export
'in 100000 rijen en 28 kolommen zoeken naar "x" en "z" en indien er een gevonden wordt de betreffende kolom verwijderenSub Methode_3() Dim I As Long, Y As LongWith ActiveWorkbook.Sheets(1) For Y is 1 to 28 ' Y is kolom 1 (A), 2 (B), 3 (C), .........28 (Z) For I = 100000 To 1 step -1 ' Rij 99999, Rij 99998, Rij 99997 ...... rij 1 If .Cells(I, Y) = “x” Then ' Als betreffende cel bvb (1, 2) = x .Cells(I, Y).EntireRow.Delete 'dan wordt de volledige rij 1 leeggemaakt End If If .Cells(I, Y) = “z” Then .Cells(I, Y).EntireRow.Delete End If Next INext YEnd WithEnd Sub
If LCase(.Cells(i, "C")) = "x" Or UCase(.Cells(i, "C")) = "X" Then
If LCase(.Cells(i, "C")) = "x" Then
If UCase(.Cells(i, "C")) = "X" Then
Beetje stoeien en lezen en goed kijken werkt het eindelijk. Meteen Ucase en Lcase aangepast Code: [Selecteer]Sub Methode2() Dim i As LongWith ActiveWorkbook.Sheets(1) For i = 100000 To 1 Step -1 If LCase(.Cells(i, "C")) = "x" Or UCase(.Cells(i, "C")) = "X" Then .Cells(i, "C").EntireColumn.Delete End If Next iEnd WithEnd Sub
Sub Methode2() Dim i As LongWith ActiveWorkbook.Sheets(1) For i = 100000 To 1 Step -1 If LCase(.Cells(i, "C")) = "x" Or UCase(.Cells(i, "C")) = "X" Then .Cells(i, "C").EntireColumn.Delete End If Next iEnd WithEnd Sub
@Montagnardbeetje onduidelijk geweest sorrydus als in kolom B1 een tekst staat die overbodig is moet heel de kolom B weg, maar er zijn meerdere kolommen met een bepaalde tekst dat ligt aan de export@SoftAidje hebt gelijk maar het snelste is wat jij al voor mijn hebt gemaaktnu is het ipv rijen de kolommen