• 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.

keuzemenu en eerste letter

Status
Niet open voor verdere reacties.
Of:
Code: 
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim cl As Range, sn As String
 For Each cl In Cells(1).CurrentRegion.Columns(1).SpecialCells(2)
  If Asc(cl) = KeyAscii Or Asc(cl) = KeyAscii - 32 Or Asc(cl) = KeyAscii + 32 Then sn = sn & ";" & cl
 Next cl
 ComboBox1.List = Split(Mid(sn, 2), ";")
End Sub

Toch de ascii + 32 er weer in ivm typen van hoofdletters, én geen lege keuze.
.Clear kan ook weg bij .List.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan