Er zijn 2 reacties in dit onderwerp

[The_Vicar]

hallo

2 kolommen A en B.  In kolom A staan leveranciers, in kolom B leverbonnummers.  Een leverancier kan op meerdere lijnen staan, met in kolom B dezelfde leverbonnummer of met een andere leverbonnummer.
Alles wordt gesorteerd op kolom A (leveranciers).

met een functie zoek ik het bereik van een bepaalde leverancier (bv A3 tot A9 = allemaal van dezelfde leverancier)

nu zou ik graag in kolom B alle verschillende leverbonnummers gaan zoeken voor deze leverancier. dus moet ik in bereik B3 to B9 gaan zoeken.  Dit kunnen 7 idem leverbonnummers zijn, maar dit kunnen er ook 7 verschillende zijn.  zou de uitkomst hiervan graag in een variabele string gooien.

waarschijnlijk geweldig verwarde vraag, maar voor diegene die kunnen volgen: hoe moet ik hier aan beginnen?  bestaat er een functie (bv "for each" of zoiets) waarmee dit kan.  "For each verschillene soort in een bepaald bereik of dergelijke?)

tx
Vic

[The_Vicar]

misschien moet ik effe verduidelijken:

wil dus functie schrijven die alle unieke waardes uit een bepaalde range achter elkaar zet in een string, gescheiden door een komma.

wat een nachtje slapen niet kan doen!  

tx
V

[Vozzie]

Hallo,

Zoiets?

Visual Basic Code:

Sub JoinRange()
	Dim stringArray() As String
	Dim sheet As Worksheet
	Dim result As String
	Dim i As Integer
	Dim j As Integer
	Set sheet = Application.ActiveSheet
	For i = 3 To 9
		ReDim Preserve stringArray(j)
		stringArray(j) = sheet.Cells(i, 1).Value
		j = j + 1
	Next
	result = Join(stringArray, ", ")
	
	MsgBox result
End Sub

Groeten