Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Preformance Excel Macro

Floor
1 antwoord
  • Ik heb de volgende macro geschreven. Deze moet plus minus 25000 line item controleren. Dit duurd redelijk lang. Omdat ik niet een een goede programeur ben. Zou ik jullie willen vragen er na te kijken en eventuele verbetering aan te brengen waardoor de macro sneller loopt.
    De Code:
    [code:1:f523678b49]
    Sub usergroup()
    Dim valuefalse As String
    Dim valuetrue As String
    Dim runTo As Integer
    Dim i As Integer
    Dim Waarde As String
    Dim check As String

    valuetrue = "yes"
    valuefalse = "no"

    ValidationArea = Sheet2.Range("A2:A24")
    runTo = Sheet2.Range("F1").Value


    For i = 0 To runTo

    check = Sheet1.Range("F1").Offset(i, 0).Value
    Waarde = Sheet1.Range("E1").Offset(i, 0).Value

    If (check <> valuetrue) Then
    For Each Value In ValidationArea
    If (Not (IsEmpty(Value))) Then
    If (Not (IsEmpty(Value)) And InStr(Waarde, Value)) Then
    Sheet1.Range("F1").Offset(i, 0).Value = valuetrue
    Exit For
    Else
    Sheet1.Range("F1").Offset(i, 0).Value = valuefalse
    End If
    Else
    Exit For
    End If
    Next
    End If

    Next
    End Sub
    [/code:1:f523678b49]
    Waarde = de waarde die de cel heeft (een string) die vergeleken moet worden met de value.
    Value = de een waarde uit de validationArea (hierin staan momenteel 12 waardes.
    runTo = tot welke line die moet lopen.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.