Herbers Excel/VBA-Archiv
| Informationen und Beispiele zum Thema MsgBox | |
|---|---|
 Screenshot zu MsgBox |
MsgBox-Seite mit Beispielarbeitsmappe aufrufen |
MsgBox bei Überlauf anzeigen
- MsgBox bei Überlauf anzeigen von christoph vom 01.09.2004 10:07:30
- AW: MsgBox bei Überlauf anzeigen - von : am 01.09.2004 10:24:54
- Danke unbekannter Helfer! - von christoph am 01.09.2004 10:32:53
 |
Betrifft: MsgBox bei Überlauf anzeigen
von: christoph
Geschrieben am: 01.09.2004 10:07:30
Hallo,
in meinem Berechnungstool sollen erst sämmtliche Daten eingegeben werden und dann kann bei anklicken eines CommandbButtons die Berechnung gestartet werden.
Wenn versehntlich die Daten nicht kommplett eingegeben werden,und es so zur Division durch null kommt, kommt eine Meldung "Überlauf" da die Division durch null nicht erlaubt ist.
Da es zimlich häufig zu eioner Division durch null kommen kann, möchte ich anstelle der MsgBox mit der Fehlermeldung wie sie standardmässig kommt eine MsgBox mit einem Hinweis "Text" einblenden und die Berechnung soll abgebrochen werden.
Besteht eine Möglichkeit dies einmal Global zu realisieren, so daß ich es nicht für jede mögliche Division durch null einzeln realisieren muß(=weniger Arbeit für mich)?
Im Voraus Danke für Hilfe und Anregungen
Christoph
 |
Betrifft: AW: MsgBox bei Überlauf anzeigen von: :
Geschrieben am: 01.09.2004 10:24:54
Sub Fehler()
Dim x As Double
On Error GoTo ErrHandler
x = [a1] / [a2]
MsgBox x
Exit Sub
ErrHandler:
If Err.Number = 11 Then
MsgBox "Bitte alle Felder füllen"
Else
MsgBox "Fehler " & Err.Number & " " & Err.Description
End If
End Sub| |
Betrifft: Danke unbekannter Helfer! von: christoph
Geschrieben am: 01.09.2004 10:32:53
Danke unbekannter Helfer!
Werde es jetzt mal ausprobieren.
Gruß
Christoph
| |