Hallo Eric,

ik ben geen kei in VBA, maar zelfs de besten zullen je veel beter en sneller kunnen helpen als je een voorbeeld.xls meestuurt, eventueel haal je de persoonlijke data weg.

Groeten,

SoftAid

Zoiets?

Sub invullen2()
    Dim lngRow As Long
    Application.ScreenUpdating = False
    lngRow = WorksheetFunction.Max(Range("A65536").End(xlUp).Offset(1, 0).Row, Range("B65536").End(xlUp).Offset(1, 0).Row)
    connaam = MsgBox("Wil je een naam invullen ?", vbQuestion + vbYesNo, "actuele gegevens...")
    If connaam = vbYes Then
        connaam = InputBox("Vul de nieuwe naam in")
        If WorksheetFunction.CountIf(Worksheets("Namen").Range("A2:A10"), connaam) = 0 Then
            MsgBox "Naam komt niet voor."
        Else
            Range("A" & lngRow) = connaam
            Range("A" & lngRow).HorizontalAlignment = xlCenter
        End If
    Else
        Range("A" & lngRow).Value = "-"
        Range("A" & lngRow).HorizontalAlignment = xlCenter
    End If
   
    conPlaats = MsgBox("Wil je een woonplaats invullen ?", vbQuestion + vbYesNo, "actuele gegevens...")
    If conPlaats = vbYes Then
        Range("B" & lngRow) = InputBox("Vul de nieuwe plaats in")
        Range("B" & lngRow).HorizontalAlignment = xlCenter
    Else
        Range("B" & lngRow).Value = "-"
        Range("B" & lngRow).HorizontalAlignment = xlCenter
    End If
    Application.ScreenUpdating = True
End Sub

Wigi

Eric

Je wilt dus een combobox of een listbox. Als ik mij niet vergis staat er in de help files een voorbeeld. Kijk dit na (op internet vind je ook veel voorbeelden) en als je er niet uit geraakt laat je iets weten. Vanaf dat ik er tijd voor kan vrijmaken antwoord ik.

Wigi