Inputbox - Abbrechen | HERBERS Excel Forum

Sub Warum() Dim N, Meldung, Stil, Titel, Antwort N = Application.InputBox(prompt:="Normalkraft (Druck = negativ) in [kN]", Title:="Eingabe der Normalkraft", Type:=1) If N < 0 Then GoTo Zeile9 Meldung = "Die Normalkraft ist größer oder gleich 0 !" & vbCrLf & vbCrLf & "Möchten Sie fortfahren ?" Stil = vbYesNoCancel + vbCritical + vbDefaultButton2 Titel = "Achtung" Antwort = MsgBox(Meldung, Stil, Titel) If Antwort = vbYes Then GoTo Zeile8 If Antwort = vbNo Then End If Antwort = vbCancel Then End Zeile8: MsgBox "Die Berechnung wird mit N=" & N & "kN durchgeführt", , "Achtung" Zeile9: MsgBox "Makro läuft normal weiter, Eingabe ist OK." End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Warum() Dim N, Meldung, Stil, Titel, Antwort N = Application.InputBox(prompt:="Normalkraft (Druck = negativ) in [kN]", Title:="Eingabe der Normalkraft", Type:=1) 'Hallo ede ich glaube hier fehlt was 'das Makro dürfte bei "Abbrechen" in der Inputbox gar nicht weiterlaufen !!! If N < 0 Then GoTo Zeile9 Meldung = "Die Normalkraft ist größer oder gleich 0 !" & vbCrLf & vbCrLf & "Möchten Sie fortfahren ?" Stil = vbYesNoCancel + vbCritical + vbDefaultButton2 Titel = "Achtung" Antwort = MsgBox(Meldung, Stil, Titel) If Antwort = vbYes Then GoTo Zeile8 If Antwort = vbNo Then End If Antwort = vbCancel Then End Zeile8: MsgBox "Die Berechnung wird mit N=" & N & "kN durchgeführt", , "Achtung" Zeile9: MsgBox "Makro läuft normal weiter, Eingabe ist OK." End Sub


Sub Warum()
Dim N, Meldung, Stil, Titel, Antwort
N = Application.InputBox(prompt:="Normalkraft (Druck = negativ) in [kN]", Title:="Eingabe der Normalkraft", Type:=1)
If N = False Then Exit Sub
'Hallo ede jetzt gibts ein neues Problem.
'Wenn ich 0 (Null) eingebe bricht das Makro ab.
'Es müsste aber weiterlaufen mit der Meldung "Die Normalkraft ist größer oder gleich 0 !"....
'Warum nicht?
'Danke wenn Du mir weiterhelfen kannst
If N < 0 Then GoTo Zeile9
Meldung = "Die Normalkraft ist größer oder gleich 0 !" & vbCrLf & vbCrLf & "Möchten Sie fortfahren ?"
Stil = vbYesNoCancel + vbCritical + vbDefaultButton2
Titel = "Achtung"
Antwort = MsgBox(Meldung, Stil, Titel)
If Antwort = vbYes Then GoTo Zeile8
If Antwort = vbNo Then End
If Antwort = vbCancel Then End
Zeile8:
MsgBox "Die Berechnung wird mit N=" & N & "kN durchgeführt", , "Achtung"
Zeile9:
MsgBox "Makro läuft normal weiter, Eingabe ist OK."
End Sub

Sub Warum() Dim N, Meldung, Stil, Titel, Antwort N = Application.InputBox(prompt:="Normalkraft (Druck = negativ) in [kN]", Title:="Eingabe der Normalkraft", Type:=1) If Str(N) = "Falsch" Then Exit Sub If N < 0 Then GoTo Zeile9 Meldung = "Die Normalkraft ist größer oder gleich 0 !" & vbCrLf & vbCrLf & "Möchten Sie fortfahren ?" Stil = vbYesNoCancel + vbCritical + vbDefaultButton2 Titel = "Achtung" Antwort = MsgBox(Meldung, Stil, Titel) If Antwort = vbYes Then GoTo Zeile8 If Antwort = vbNo Then End If Antwort = vbCancel Then End Zeile8: MsgBox "Die Berechnung wird mit N=" & N & "kN durchgeführt", , "Achtung" Zeile9: MsgBox "Makro läuft normal weiter, Eingabe ist OK." End Sub

Beliebteste Forumthreads (12 Monate)

Inputbox - Abbrechen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inputbox - Abbrechen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread