Opgelost Macro annuleren

[oraluc]

Hoi,

Ik heb onderstaande code in een macro. Na klikken op 'Annuleren' komt 'ie na de melding weer terug in het invoervenster. Hoe kan ik 'm dan laten stoppen?

Do
' Prompt for input until a valid value is entered
zoekWaarde = InputBox("Voer de waarde in om te zoeken:")
If zoekWaarde = False Then Exit Sub
If Trim(CStr(zoekWaarde)) = "" Then
MsgBox "Geen zoekwaarde ingevoerd.", vbExclamation
End If
Loop Until Trim(CStr(zoekWaarde)) <> ""

Alvast bedankt.
Luc

 

[edmoor]

Zet Exit Sub onder de MsgBox.

 

[emields]

of plaats een voorbeeldbestandje?

 

[Warme bakkertje]

Do
' Prompt for input until a valid value is entered
    zoekwaarde = InputBox("Voer de waarde in om te zoeken:")
    If StrPtr(zoekwaarde) = 0 Then Exit Sub
    If zoekwaarde = vbNullString Then
    'If Len(zoekwaarde) = 0 Then 'andere mogelijkheid
        MsgBox "Geen zoekwaarde ingevoerd.", vbExclamation
    End If
Loop Until Trim(CStr(zoekwaarde)) <> vbNullString
'Loop Until Len(zoekwaarde) > 0 'andere mogelijkheid

 

[oraluc]

Do
' Prompt for input until a valid value is entered
    zoekwaarde = InputBox("Voer de waarde in om te zoeken:")
    If StrPtr(zoekwaarde) = 0 Then Exit Sub
    If zoekwaarde = vbNullString Then
    'If Len(zoekwaarde) = 0 Then 'andere mogelijkheid
        MsgBox "Geen zoekwaarde ingevoerd.", vbExclamation
    End If
Loop Until Trim(CStr(zoekwaarde)) <> vbNullString
'Loop Until Len(zoekwaarde) > 0 'andere mogelijkheid

Dat was de oplossing.
Bedankt!