Textmarke
30.07.2014 19:36:58
Florian
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.