Microsoft Excel

Herbers Excel/VBA-Archiv

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

Textmarke

Betrifft: Textmarke von: Florian
Geschrieben am: 30.07.2014 19:36:58

Hallo, habe hin und hergesucht und weiß nicht mehr weiter. Die Textmarke "BeiFehler" findet mein Code leider nicht. Weiß jemand, wieso? Die Syntax sollte richtig sein, oder?

Option Explicit



Sub Potenzieren()
    Dim Basis As Long
    Dim Exponent As Long
    Dim Ergebnis As Long
    Dim Antwort As String
NochmalVersuchen:
    On Error GoTo BeiFehler
    Basis = InputBox("Basis eingeben!")
    Exponent = InputBox("Exponenten eingeben!")
    Ergebnis = Basis ^ Exponent
    Range(Cells(2, 2)).Value = Ergebnis
    End Sub
BeiFehler:
    Antwort = MsgBox("Folgender Fehler ist aufgetreten: " & Error(Err.Number) & ". Möchten Sie   _
_
es erneut versuchen?", _
    vbCritical + vbYesNo)
    If Antwort = vbYes Then Resume NochmalVersuchen
End Sub
Danke vorab für die Unterstützung.

  

Betrifft: AW: Textmarke von: Nepumuk
Geschrieben am: 30.07.2014 19:56:41

Hallo,

da kommt ja auch ein End Sub vor der Sprungmarke. Ich hab es mal ein bisschen geändert:

Public Sub Potenzieren()
    Dim Basis As Double
    Dim Exponent As Double
    Dim Ergebnis As Double
    On Error GoTo BeiFehler
    NochmalVersuchen:
    Basis = CDbl(InputBox("Basis eingeben!"))
    Exponent = CDbl(InputBox("Exponenten eingeben!"))
    Ergebnis = Basis ^ Exponent
    Cells(2, 2).Value = Ergebnis
    Exit Sub
    BeiFehler:
    If MsgBox("Folgender Fehler ist aufgetreten: " & Err.Number & ". Möchten Sie " & _
        "es erneut versuchen?", vbCritical Or vbYesNo) = vbYes Then Resume NochmalVersuchen
End Sub

Gruß
Nepumuk


  

Betrifft: AW: Textmarke von: Nepumuk
Geschrieben am: 30.07.2014 20:00:03

Oooops,

du wolltest ja die Fehlerbeschreibung. Tausche in der MsgBox Err.Number gegen Err.Description

Gruß
Nepumuk