Mulitselect listbox

[peter1980]

Hallo ik probeer in mijn Excel blad een cel aan te maken met een dropdown lijst waar ik meerdere keuzes aan kan vinken.
Alleen kan ik op http://office.microsoft.com/ alleen een handleiding vinden voor een ActiveX element.

De bedoeling is dat deze waarde van een ander blad wordt opgezocht en dat ik per rij opnieuw de keuze krijg.
Ik heb ook al gezocht naar waarden opzoeken in een lijst met gegevens maar kan niets vinden voor een multi select. Heeft iemand een goed voorbeeld?

 

[oeldere]

het opzoeken op een ander werkblad kan in ieder geval met het maken van een naam.

in de validatie gebruik je dan de naam.

via de zoekfunctie van het forum vind je vast verschillende voorbeelden.

Kijk eens hier: en klik op 'Keuze na keuze'.

 

[peter1980]

Bedankt voor je tip maar ik zoek toch iets met een directe selectie.

In de eerst kolom heb ik bijvoorbeeld materiaal staan en in de tweede kolom waar het verkocht word. Het zou dus mooi zijn als ik in kolom 2 meerdere opties kan aanvinken zodat ik later een overzicht kan maken welke materiaal waar verkocht wordt.


Martiaal Verkocht door
Martiaal1 Gamma; Karwij
Martiaal2 praxis
Martiaal3 Hema;Praxis

 

[peter1980]

heb een oplossing gevonden via deze topic;

[JS]Public InWork As Boolean


'Private Sub Worksheet_Change(ByVal Target As Range)
' If InWork Then Exit Sub
' InWork = True
' On Error GoTo NonValidatedCell
' If Selection.Validation.Type = xlValidateList Then
' ColAbs = Target.Column
' RowAbs = Target.Row
' If Sheets("Sheet1").Cells(RowAbs, ColAbs).Value = "." Then
' TotalString = ""
' Else
' TotalString = Sheets("Sheet2").Cells(RowAbs, ColAbs).Value & ", " & Sheets("Sheet1").Cells(RowAbs, ColAbs).Value
' End If
' If Left(TotalString, 1) = "," Then TotalString = Mid(TotalString, 3)
' Sheets("Sheet1").Cells(RowAbs, ColAbs).Value = TotalString
' Sheets("Sheet2").Cells(RowAbs, ColAbs).Value = TotalString
' End If
' InWork = False
'
' Exit Sub
'NonValidatedCell:
' InWork = False
'End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If InWork Then Exit Sub
InWork = True
On Error GoTo NonValidatedCell
If Selection.Validation.Type = xlValidateList Then
ColAbs = Target.Column
RowAbs = Target.Row
If Sheets("ZoekWoorden").Cells(RowAbs, ColAbs).Value = "." Then
TotalString = ""
Else
Application.Undo
TotalString = Sheets("ZoekWoorden").Cells(RowAbs, ColAbs).Value & ", "
Application.Undo
TotalString = TotalString & Sheets("ZoekWoorden").Cells(RowAbs, ColAbs).Value
End If
If Left(TotalString, 1) = "," Then TotalString = Mid(TotalString, 3)
Sheets("ZoekWoorden").Cells(RowAbs, ColAbs).Value = TotalString
'Sheets("Sheet2").Cells(RowAbs, ColAbs).Value = TotalString
End If
InWork = False

Exit Sub
NonValidatedCell:
InWork = False



End Sub

[/JS]

 

[oeldere]

zet je de vraag op opgelost, als deze is opgelost?