meerdere waardes uit cel splitsen

[vaneijk]

Beste experts van het forum,

Ik heb in een cel, dit geval blad1.range("T6") varierende waardes staan waaruit ik alleen alle nummers ( die hieronder in het vet gedrukt staan voor het # teken ) wil hebben en deze wil ik graag als lijst in in een cbo.
Vb: Er staat in de cel 2016005 # Fase 1 - 2016005-1 # Fase 2 deel 1 - 2016005-2 # fase 2 deel 2

Nu heb ik het idee dat ik het met de functie split zou moeten kunnen realiseren, echter heb ik deze functie nog niet vaak gebruikt en snap ik de opstelling hiervan niet helemaal.
Hopenlijk is er een beste helper die mij de opzet zou kunnen geven en misschien enige uitleg hierover zodat ik de opstelling ervan begrijp.

Mvg. E.

 

[AlexCEL]

Voorbeeld excel bestand?

https://www.helpmij.nl/forum/announcement.php?f=5

 

[vaneijk]

mijn excuses, hierbij een voorbeeldbestandje Bekijk bijlage test.xlsm

 

[edmoor]

Laat ook weten welk resultaat je verwacht in die Text- en Combobox.

 

[vaneijk]

@edmoor in de textbox mag alles komen te staan zoals het staat, dankzij uw hulp van gisteren. In de combobox zou ik graag alleen de nummering willen hebben welke voor het # teken staan. In het voorbeeld staan 3 nummeringen, 2016005, 2016005-1, 2016005-2. Deze zou ik graag in de combobox willen hebben.

 

[VenA]

Zo?

 

[vaneijk]

Ik zie uw voorbeeld en dat is wat ik bedoelde. Helaas snap ik de opstelling hiervan niet helemaal, maar daar kan ik nu aan gaan werken om uw voorbeeld stap voor stap na te lopen.
Hartelijk dank voor uw geboden hulp VenA. :thumb: :thumb:

 

[HSV]

 ComboBox1.List = Split([COLOR=#ff0000]mid(c00, 2[/COLOR]), "|")

???

Private Sub UserForm_Initialize()
TextBox15.Text = Replace(Blad1.Cells(10, 4), " | ", vbLf)
a = Split(Cells(10, 4), "| ")
  For i = 0 To UBound(a)
    a(i) = Split(a(i), " # ")(0)
  Next i
 ComboBox1.List = a
End Sub

 

[snb]

Of:

Private Sub UserForm_Initialize()
  TextBox15 = Replace(Blad1.Cells(10, 4), " | ", vbLf)
  
  ComboBox1.List = Filter(Split(Replace(TextBox15, " #", vbLf & "#"), vbLf), "#", 0)
End Sub

 

[HSV]

Klasse @snb.

 

[snb]

Het zal wel met de opbrengst van de zonnepanelen te maken hebben.. .