Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
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.
Office 365.
Code:=TEKST.COMBINEREN(";";;FILTER(Blad1!C2:C2442;Blad1!B2:B2442=C1))
NB. de functie kan maximaal 252 tekst argumenten aan en 32767 tekens.
Alt+F11
Sub Verwerk()
Dim r As Long
Dim a As String
Dim r3 As Long
r3 = 1
r = 3
a = Cells(2, 3) & ";"
e = Cells(2, 2)
Do While e <> vbNullString
Do While Cells(r, 2) = e
a = a & Cells(r, 3) & ";"
r = r + 1
Loop
Sheets("Output").Cells(r3, 1) = e
Sheets("Output").Cells(r3, 2) = a
If Len(a) > 32767 Then
MsgBox "Resultaat voor " & e & " was langer dan 32767 karakters en is nu afgekapt."
End If
r3 = r3 + 1
e = Cells(r, 2)
a = ""
Loop
MsgBox "Zie werkblad Output"
Application.Goto Sheets("Output").Range("A1")
End Sub
Sub Verwerk()
Dim r As Long
Dim a As String
Dim r3 As Long
ActiveSheet.Range("A:C").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
r3 = 1
r = 3
a = Cells(2, 3) & ";"
e = Cells(2, 2)
Do While e <> vbNullString
Do While Cells(r, 2) = e
If Len(a & Cells(r, 3)) < 32766 Then
a = a & Cells(r, 3) & ";"
r = r + 1
Else
Sheets("Output").Cells(r3, 1) = e
Sheets("Output").Cells(r3, 2) = a
MsgBox "Resultaat voor " & e & " was langer dan 32767 karakters, is nu gesplitst."
a = ""
r3 = r3 + 1
End If
Loop
Sheets("Output").Cells(r3, 1) = e
Sheets("Output").Cells(r3, 2) = a
r3 = r3 + 1
e = Cells(r, 2)
a = ""
Loop
MsgBox "Zie werkblad Output"
Application.Goto Sheets("Output").Range("A1")
End Sub
Bijgaande macro starten vanuit het werkblad met je data, het resultaat komt in werkblad Output dat je eerst even moet aanmaken.
Code:Sub Verwerk() Dim r As Long Dim a As String Dim r3 As Long r3 = 1 r = 3 a = Cells(2, 3) & ";" e = Cells(2, 2) Do While e <> vbNullString Do While Cells(r, 2) = e a = a & Cells(r, 3) & ";" r = r + 1 Loop Sheets("Output").Cells(r3, 1) = e Sheets("Output").Cells(r3, 2) = a If Len(a) > 32767 Then MsgBox "Resultaat voor " & e & " was langer dan 32767 karakters en is nu afgekapt." End If r3 = r3 + 1 e = Cells(r, 2) a = "" Loop MsgBox "Zie werkblad Output" Application.Goto Sheets("Output").Range("A1") End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.