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

Namen wissen in ComboBox1.List

Status
Niet open voor verdere reacties.
W

wieter

Terugkerende gebruiker
Lid geworden
26 jun 2009
Berichten
1.128
Ik wil de [ComboBox1.List] kunnen leeg maken.
Met de rode knop op de U-form, kan je namen uit de [ComboBox1.List] verwijderen.
Dit loopt goed , tot bij de laatste naam, dan gaat het mis.
De laatste naam wordt wel gewist op Blad2(namenlijst).
Maar de laatste naam verdwijnt niet uit de ComboBox.
Wie kan helpen?
 

Bijlagen

  • __ zo kan het ook.xlsb
    29 KB · Weergaven: 42
Maak er eens dit van:
Code: 
Private Sub CommandButton3_Click()
    If ComboBox1.Value = "" Then
        MsgBox ("Eerst een naam kiezen in de keuzelijst."), vbCritical, "Fout!"
        ComboBox1.SetFocus
        Exit Sub
    End If
    
    If MsgBox("LET OP ! " & ComboBox1.Value & " wissen uit keuzelijst? Ben je zeker?", vbQuestion + vbYesNo, "Bevestig Wissen") = vbYes Then
        With Sheets(2)
            .Range("A2").Resize(Application.CountA(.Columns(1))).Find(ComboBox1.Value).Delete xlShiftUp
        End With
       ComboBox1.Value = ""
    End If

    Call UserForm_Initialize
End Sub

Private Sub UserForm_Initialize()
    If Blad2.Cells(2, 1) <> "" Then
        ComboBox1.List = Blad2.Cells(1).CurrentRegion.Offset(1).Value
    Else
        ComboBox1.Clear
    End If
End Sub

Je Sub Resetten kan dan weg.
 
Bedankt Ed,
Ik ga het gelijk ook testen in het eigenlijke bestand.
Groeten Wieter
 
Ook in het eigenlijke bestand (zeer uitgebreid) werkt jouw oplossing prefect.
Nogmaals, bedankt Ed
 
Graag gedaan :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan