Case-Anweisung

18/06/2009 - 08:51 von Rainer Krusenbaum | Report spam
Liebe "Gemeinde",
mich hat gerade mal wieder ein Problem erwischt, dass ich auf die Schnelle
nicht selbst gelöst bekomme. Vielleicht kann mir ja wieder mal jemand helfen.
In einer Prozedur habe ich folgende Anweisung:

Dim Eing, VWert As Double
VWert = Range("B8")
Eing = Application.InputBox("EB eingeben:", "SHARE CAPITAL", VWert, 550, 390)
Select Case Eing
Case False
GoTo ABBRUCH
End Select
Range("B8") = Eing

Damit frage ich Werte ab und schreibe Sie in das entsprechende Feld wobei
der ein zu gebende Wert durchaus Null sein kann. Leider führt das Programm
bei der Eingabe Null imm die Case-Anweisung aus. Wie kann ich gewàhrleisten,
dass die Case-Anweisung nur ausgeführt wird wenn ich im Eingabefenster
"Abbruch" anklicke?

Schon mal vielen Dank im Voraus und allen noch einen schönen Tag
Rainer
 

Lesen sie die antworten

#1 Andreas Killer
18/06/2009 - 09:04 | Warnen spam
On 18 Jun., 08:51, Rainer Krusenbaum
wrote:

Dim Eing, VWert As Double
VWert = Range("B8")
Eing = Application.InputBox("EB eingeben:", "SHARE CAPITAL", VWert, 550, 390)
Select Case Eing


Case "0"
    Case False
    GoTo ABBRUCH
End Select
Range("B8") = Eing



Andreas.

Ähnliche fragen