Inputbox - VBA - ved tryk på cancel (eller annuler)

En InputBox giver 'False' som svar, hvis brugeren trykker på [Cancel].

Dette kan testes med:

If Answ = "False" Then...

@pistolprinsen:
Jeg tror ikke du har kørt testkoden:

ovenstående returnerer også beskeden "Vi kører"

Har også testet med
If Answ = False Then, altså uden anførselstegn ør og efter False

Hmmmm....

InputBox funktionen virker åbenbart anerledes end InputBox metoden (som jeg plejer, at bruge).

Det ser ud til, at du skal teste på vbNullString:

If Answ = vbNullString Then
  MsgBox "Canceled"
Else
  MsgBox "Vi kører"
End If

tja...
men den gør ikke det jeg ledte efter.

Jeg ledte jo efter en metode til at teste om inputbox ikke var udfyldt eller der var valgt "Cancel".

gør tilsyneladende det samme som


Bruger skal jo have mulighed for at svare:
send autogenereret mail, uden at jeg tilføjer noget til teksten(ved at undlade at skrive noget i inputbox).

Cancel skal bruges hvis bruger siger:
Ups, jeg vil da ikke sende en mail.

???
Jeg forstår ikke???

Det virker hos mig - hvis der ikke står noget i InputBox, og brugeren vælger [Annuller], så virker testen da...

Så hør lige godt efter...
Bruger skal kunne vælge hele 3 forskellige muligheder med hver deres forløb:
1. Han kan tilføje en kort tekst til en mail, der beskriver de ændringer han har lavet i vores plan (excel-fil).

2. han kan vælge at sende opdateringsmailen uden nogen tilføjelse til teksten (han skriver ikke nogen tekst i inputbox).
Så genereres maien kun med standard-indholdet.

3. han kan vælge at annullere mail-genereringen ved at trukke "Cancel"

Som det er i øjeblikket kan min kode (If Answ = vbNullString) ikke kende forskel på seance 2 og 3.

Jeg har selv lige kreeret en NØD-løsning, Jeg understregede nødløsning, for jeg synes ikke den er særlig køn.


Den er ikke særlig køn fordi den spørger i flere trin, så brugeren udsættes for at skulle ta tstilling til flere på hinanden følgende spørgsmål.

Der er stadig en lille præmie til den der kan lave en pæn løsning i stil med min første testkode...

Stjålet fra nettet og rettet til

Sub inputbox_verification()

txt = InputBox("type the text")

If StrPtr(txt) = 0 Then
MsgBox "if it entenrs here then the user pressed cancel"
Exit Sub
End If

If txt = "" Then
MsgBox "if enters here the user left in blank"
End If

If Text <> "" Then
MsgBox "if enters here the user entered some text"
End If

End Sub

http://www.ozgrid.com/forum/showthread.php?t=15628

Så faldt 10-øren :-)

Men, løsningen er der så 2 andre, der har givet :-)

Undskyld forvirringen...

@kabbak og RogerWilco:
I er nogle genier. smid lige nogle svar.

@RogerWilco: Jeg fulgte dit link, og fandt  nedenstående vigtige "guldkorn":
If the cancel button is clicked then InputBox returns a zero length string, so just check on that.

og det virker hver gang...

lige en rettelse...
Det var jo kabbak er leverede det omtalte link, og det er helt OK at du har stjålet det fra et sted på nettet. Jeg havde blot ikke selv fået tanken at søge hjælp andre steder end eksperten.dk, men her var du smartere end jeg.

et svar ;-))

@RogerWilco:
Jeg mangler stadig et svar fra dig, så du kan få andel i points.
Det var jo dig der kom først med dt brugbart svar.

At der så senere kom et mere uddybende svar fra kabbak gør jo ikke dit svar mindre rigtigt...

(c:

@kabbak og RogerWilco:
Points blev fordelt, tak for indsatsen til Jer begge to...