• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Formule aangepast (Dubbele declaratie)

Status
Niet open voor verdere reacties.
Uhum,
Zat je code nogmaals te bekijken, hier zeg je 2x het zelfde dus je zal nooit de elseif bereik!!
Code: 
  If [COLOR="Red"]InStr(form2, "breedte") > 0[/COLOR] Then
                ho = "dichtingbreedte"
                naam2 = Mid(form2, Len(form2) - o - Len(ho), Len(ho) + o)
                b.Formula = Replace(form2, naam2, "(" & naam2 & "-40)")
            ElseIf[COLOR="yellow"] InStr(form2, "breedte") > 0[/COLOR] Then
                brho2 = "dichtingbreedte"
                naam2 = Mid(form2, Len(form2) - o - Len(brho2), Len(brho2) + o)
                b.Formula = Replace(form2, naam2, "(" & naam2 & "-40)")
            End If
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan