Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

MsgBox bei Überlauf anzeigen

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


 

Beiträge aus den Excel-Beispielen zum Thema "MsgBox bei Überlauf anzeigen"