Tekst samenv o.b.v. leverancier

[Std]

Beste,

Na een ochtend bezig te zijn krijg het niet voor elkaar om met een formule tekst per leverancier samen te voegen, wie heeft raad? (zie bijlage)Bekijk bijlage Excel 3.xls

 

[VenA]

In de bijlage een oplossing met een UDF.

 

[Std]

In de bijlage een oplossing met een UDF.

Beste VenA,

mijn dank is zeer groot!!
Ik zou graag wegwijs worden met Visual Basic (VBA)

 

[VenA]

Ik zou graag wegwijs worden met Visual Basic (VBA)

Gewoon beginnen met macro's opnemen en op dit forum meelezen:d
Iets beter (zie ik nu)

Function VenA(r1, r2)
VenA = ""
For Each cl In r2
    If cl = r1 And cl.Offset(, 8) <> "" Then VenA = VenA & cl.Offset(, 8).Value & ", "
Next cl
If Len(VenA) > 0 Then VenA = Left(VenA, Len(VenA) - 2) & "."
End Function

 

[Std]

Gewoon beginnen met macro's opnemen en op dit forum meelezen:d
Iets beter (zie ik nu)

Function VenA(r1, r2)
VenA = ""
For Each cl In r2
    If cl = r1 And cl.Offset(, 8) <> "" Then VenA = VenA & cl.Offset(, 8).Value & ", "
Next cl
If Len(VenA) > 0 Then VenA = Left(VenA, Len(VenA) - 2) & "."
End Function

Mijn dank, ik zou er graag handigheid in krijgen....
Ik weet wel dat er vaak te moeilijk over Visual Basic gedacht word of heb ik dat mis??

 

[VenA]

Wil je svp niet onnodig quoten. Wat moeilijk of makkelijk is kan ik voor niemand bepalen