Hallo,
Ik heb weer eens een mooi code geschreven waar ik erg blij mee ben. Helaas is hij erg langzaam. Heeft iemand tips om deze code te versnellen?
De code controleert of de naam in de cel overeenkomt met een waarde op een ander tabblad en als dat zo is past hij de lay-out aan.
Bedankt!
Ik heb weer eens een mooi code geschreven waar ik erg blij mee ben. Helaas is hij erg langzaam. Heeft iemand tips om deze code te versnellen?
De code controleert of de naam in de cel overeenkomt met een waarde op een ander tabblad en als dat zo is past hij de lay-out aan.
Code:
Sub filiaalnamen()
Dim rng As Range
Dim rng2 As Range
C = ThisWorkbook.Sheets("Dashboard").Range("B2").Value ' bovenste regels
Y = Range("I" & Rows.Count).End(xlUp).Row
antwoord = 0
Application.ScreenUpdating = False
Set rng = ThisWorkbook.Sheets("planning").Range(Cells(C, 2), Cells(Y, 8))
Set rng2 = ThisWorkbook.Sheets("Tabel").Range("D2:D16")
For Each cell In rng
cell.Value = LCase(cell.Value): cell.Value = StrConv(cell.Value, vbProperCase)
cell2 = cell
For Each x In rng2
x.Value = LCase(x.Value): x.Value = StrConv(x.Value, vbProperCase)
If x = cell2 Then
antwoord = 1
End If
Next x
If antwoord = 1 Then
cell.Font.Bold = True
With cell.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With cell.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
End If
antwoord = 0
Next cell
MsgBox ("Klaar")
Application.ScreenUpdating = True
End Sub
Bedankt!