Plotinus
Gebruiker
- Lid geworden
- 25 mrt 2007
- Berichten
- 649
In een steeds verder uitdijende tabel moet ik een zoek- en vervangoparatie uitvoeren. Dat is gelukt:
Een paar zaken zitten em echter niet lekken:
- Ik zou de if-constructie's samen willen voegen met een 'OR', maar dat lukt me niet.
- Ik heb begrepen dat de functie 'FormulaR1C1' best zo veel mogelijk vermeden wordt. Ik weet echter niet hoe dat moet.
Iemand een idee hoe bovenstaande uitdagingen op te lossen? Oogmerk is makro zo snel mogelijk maken want de tabel kan meer dan 300.000 rijen gaan bevatten
Code:
Sub Makro()
Dim Rijen As Long
Dim i As Long
Application.ScreenUpdating = False
Sheets("Alle data samen").Select
Rijen = Worksheets("Alle data samen").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To Rijen
Tekst_B = Mid(Cells(i, 2), 1, 3)
If Tekst_B = "[B]adm[/B]" And Cells(i, 25).Value = "Toezicht" Then Cells(i, 25).[B]FormulaR1C1[/B] = "Administratief"
If Tekst_B = "[B]Adm"[/B] And Cells(i, 25).Value = "Toezicht" Then Cells(i, 25).[B]FormulaR1C1[/B] = "Administratief"
Next i
Application.ScreenUpdating = True
End Sub
Een paar zaken zitten em echter niet lekken:
- Ik zou de if-constructie's samen willen voegen met een 'OR', maar dat lukt me niet.
- Ik heb begrepen dat de functie 'FormulaR1C1' best zo veel mogelijk vermeden wordt. Ik weet echter niet hoe dat moet.
Iemand een idee hoe bovenstaande uitdagingen op te lossen? Oogmerk is makro zo snel mogelijk maken want de tabel kan meer dan 300.000 rijen gaan bevatten