Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Cancel Bedingun für Inputbox

Cancel Bedingun für Inputbox
29.09.2004 09:24:21
M4kus
Hallo, ich habe einen eigentlich ganz einfachen euro umrechner:

Sub Euro()
Dim eingabe, ergebnis
start:
eingabe = InputBox("Bitte Betrag in DM eingeben!")
If eingabe = "" Then
MsgBox ("Sie müssen zuerst einen Betrag eingeben")
GoTo start
End If
If eingabe = 0 Then
MsgBox ("Sie müssen eine Zahl eingeben nicht 0!")
GoTo start
End If
so, nun macht er wenn man auf abbrechen klickt bei der inputbox das gleiche wie wenn man auf ok gedrückt hätte ohne vorherige eingabe, wie kann ich dies abfangen, also bei click auf abbrechen das makro beenden
Vielen dank für eure Hilfe.
Gruß _Markus
ergebnis = eingabe / 1.95583
MsgBox ("Betrag in Euro: " & ergebnis)
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Cancel Bedingun für Inputbox
29.09.2004 09:25:09
Markus
sorry,
die zwei zeilen unten gehören zum code dazu also unter das end if!!
AW: Cancel Bedingun für Inputbox
Ingo
Die InputBox gibt beim Abbrechen-Button eine Nullzeichenfolge zurück, das ist genauso als wenn man bei leerer texteingabe auf o.K. geht. Du kannst aber in der darauf folgenden MsgBox OKCancel anwenden
mfG
Ingo Christiansen
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige