Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Debuggen

Debuggen
30.08.2005 10:13:19
Udo
Guten Morgen,
könnte mir bitte jemand bei folgendem Problem behilflich sein?
Wenn ich bei meinem File den Button "Abbrechen" betätige
wird nicht abgebrochen sondern debuggt wie kann ich dies verhindern?
https://www.herber.de/bbs/user/26174.xls
Gruss
Udo

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Debuggen
30.08.2005 10:18:54
Dr.
Hi,
Du hast die Variablen als Double deklariert. Wenn Du jedoch den "Abbrechen"-Button betätigst, wird ein Nullstring "" zurückgegeben, der sich mit dem Datentyp nicht verträgt.
AW: Debuggen
30.08.2005 10:24:52
Udo
Hallo Dr.
vielen Dank für deine Antwort
leider bin ich noch nicht so fit in Vba!
kannst du mir sagen was ich abändern muss, das es funktioniert.
Gruss
Udo
siehe meine Antwort
30.08.2005 10:26:32
u_
Dank an alle Beteiligten
30.08.2005 10:32:00
Udo
Hallo u,
vielen Dank für deine schnelle Hilfe.
Einen schönen Tag wünscht Dir (Euch)
Udo
AW: Debuggen
30.08.2005 10:23:03
u_
Hallo,
Inputboxen liefern einen String, im Fall von Abbruch "".

Private Sub CommandButton1_Click()
Dim weiter As String
Dim Zahl As Double, Zahl1 As Double, Summe As Double, Zahl2 As Double, Zahl3 As Double
Zahl1 = 0
Zahl2 = 0
Zahl3 = 0
Const conPreis As Integer = 34
On Error Resume Next
Zahl1 = InputBox("Rüstkosten")
If Zahl1 = 0 Then Exit Sub
Zahl2 = InputBox("Stückzahl")
If Zahl2 = 0 Then Exit Sub
On Error GoTo 0
Summe = MsgBox("Einzelpreis " & (conPreis + Zahl1) / Zahl2 & " €")
End Sub

Gruß
Geist ist geil!
Anzeige
AW: Debuggen
30.08.2005 10:23:13
Reinhard
Hi Udo, 
Private Sub CommandButton1_Click()
Dim weiter As String
Dim Zahl As Double, Zahl1 As Double, Summe As Double, Zahl2 As Double, Zahl3 As Double
Const conPreis As Integer = 34
'If Len(InputBox("Rüstkosten")) = 0 Then Exit Sub
Zahl1 = Val(InputBox("Rüstkosten"))
Zahl2 = Val(InputBox("Stückzahl"))
If Zahl2 > 0 Then Summe = MsgBox("Einzelpreis " & (conPreis + Zahl1) / Zahl2 & " €")
End Sub

Gruß
Reinhard

Links zu Excel-Dialogen

CommandButton InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige