• 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.

omzetten formule naar vba

Status
Niet open voor verdere reacties.
D

don42

Gebruiker
Lid geworden
25 apr 2014
Berichten
764
beste helpers
ik had heel graag onderstaande code werkend in vba
kan iemand mij daarmee helpen
Code: 
=ALS.FOUT(TEKST.COMBINEREN(";";WAAR;FILTER(C2:C56;B2:B56="x"));"-")

Ben er al even mee bezig maar wil niet lukken
dit heb ik :
Code: 
Range("g13") = WorksheetFunction.TextJoin(";", True, Filter(Range("c2:c56"), Range("b2:b56"), True, "x"))

bvd
Don
 
Laatst bewerkt:
Gebruik in Excel Excel funkties/formules; gebruik in VBA VBA-methoden (arrays, loops, etc.); en plaats in fora voorbeeldbestanden.
 
Dus:

Code: 
Sub jec()
 Dim ar, a, i As Long
 ar = Range("B2:C56")

 For i = 1 To UBound(ar)
   If ar(i, 1) = "x" Then a = a & ";" & ar(i, 2)
 Next
 
 If Len(a) = 0 Then a = " -"
 Range("G13") = Mid(a, 2)
End Sub
 
Laatst bewerkt:
Code: 
Sub jecc()
 With Range("B2:B56")
   Range("G13") = Join(Filter(Evaluate("transpose(if(" & .Address & "=""x"", " & .Offset(, 1).Address & "))"), False, 0), ";")
 End With
End Sub

of

Code: 
Sub jec()
[g13] = [iferror(textjoin(";",,filter(C2:C56,B2:B56="x")),"-")]
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan