error met msgbox

[drubbus]

Ik heb een tooltje gemaakt om snel wat basis info op te kunnen vragen
Men kan zoeken in een combobox op naam
Echter als de naam niet in de database zit krijg ik een foutmelding en klapt excel er uit
Ik weet dat dit kan worden opgelost met een on error handling met een messagebox die netjes verteld dat de opgevraagde naam niet in de dbase zit
Ik kom er alleen niet uit

gaat om code:

          'testcode
Private Sub CommandButton1_Click()
Dim Code As Range
    With Worksheets("DBASE")
    Set Code = .Range("A:AC").Find(ComboBox1.Value, LookIn:=xlValues, Lookat:=xlWhole)
        For i = 1 To 29
            Me("TextBox" & i) = .Cells(Code.Row, i)
                          
Next
    End With

           End Sub

Dank
drubbus

 

[Elsendoorn2134]

Drubbus,

Geen bestandje, dus maar even uit de dikke duim, geen garanties, maar ik denk wel dat dit werkt.

Private Sub CommandButton1_Click()

Dim Code As Range
    
With Worksheets("DBASE")

Set Code = .Range("A:AC").Find(Combobox1.Value, LookIn:=xlValues, Lookat:=xlWhole)
    If Not Code Is Nothing Then
        For i = 1 To 29
            Me("TextBox" & i) = .Cells(Code.Row, i)
        Next
    Else
        MsgBox "Gegevens: " & Combobox1.Value & " is niet in de database gevonden.", vbInformation
    End If
End With

End Sub

p.s. Is het nu echt zo moeilijk om je programma een beetje netjes te laten tonen?

Veel Succes

 

[drubbus]

Dank je voor de oplossing
het werkt

Het bestand ontbrak omdat ik gisteren een trage verbinding had en het bestand gewoon niet kon uploaden

Vind het prima dat je de code niet netjes vond en dat we daar op moeten letten is alleen maar goed
Doe het alleen niet op zo'n toontje
We zijn geen kleine kinderen meer