Formule wordt niet geaccepteerd

[gpiket7]

Ik heb met VBA de volgende formule:

Private Sub CommandButton1_Click()
    Cells(7, 21) = Replace("=N7/Gebruikers!$F$2*ALS(E7=#Alle Vestigingen#,Gebruikers!$F$2,VERT.ZOEKEN(E7,Gebruikers!$A$2:$B$60,2,0))", "#", Chr(34))
    Dim r As Range
    For Each r In Range("A1:A100") ' Dit is de range waar de nullen kunnen staan
        If r.Value = "" Then
            r.EntireRow.Hidden = True ' Verstoppen van de rij
        Else
            r.EntireRow.Hidden = False ' Zichtbaar maken van de rij
        End If
    Next
End Sub

Hij plaatst nu de code in de cel en verbergt de rijen, maar als uitkomst in de cel krijg ik #NAAM? terwijl als ik dezelfde formule er handmatig in zet, namelijk

=N7/Gebruikers!$F$2*ALS(E7="Alle Vestigingen"|Gebruikers!$F$2|VERT.ZOEKEN(E7|Gebruikers!$A$2:$B$60|2|0))

Dan kijg ik wel een echte uitkomst, weet iemand wat er fout is?

 

[Wigi]

weet iemand wat er fout is?

In VBA zet je formules in het Engels, niet in het Nederlands. ALS wordt IF en VERT.ZOEKEN wordt VLOOKUP.

 

[gpiket7]

Dat was dus inderdaad het probleem, hij pakt hem nu meteen. :thumb: