Thema Datum  Von Nutzer Rating
Antwort
25.05.2022 15:41:47 Sk1988
NotSolved
Blau Laufzeitfehler13
 25.05.2022 16:00:00 volti
NotSolved
25.05.2022 16:16:55 Gast28166
NotSolved
25.05.2022 16:36:54 volti
NotSolved
25.05.2022 16:54:22 Sk1988
NotSolved
25.05.2022 16:57:18 Sk1988
NotSolved
25.05.2022 17:08:02 volti
NotSolved
25.05.2022 19:16:12 Sk1988
Solved

Ansicht des Beitrags:
Von:
volti		 Datum:
25.05.2022 16:00:00		 Views:
514		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler13

Hi,

eine Idee.

PS: Bei der Formel müsste es doch eigentlich "abzüglich der Provision" heißen, oder ?

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23		  
Private Sub btn_2_Click()

  Dim sEingabe As String, cErgebnis As Currency, vProvision As Variant

  Provision = 0.05
  Do
     sEingabe = InputBox("Bitte eine Zahl eingeben.")
     If StrPtr(sEingabe) = 0 Then Exit Sub ' Abbrechen geklickt => raus
     If Val(sEingabe) <> 0 Then Exit Do
     MsgBox "Bitte geben Sie eine Zahl und keine anderen Zeichen ein!!!", vbCritical
  Loop

  cErgebnis = Val(sEingabe) / (1 + vProvision)

  If Me.chk_box1 = True Then
     MsgBox "Der Wert: " & sEingabe & " + 5% Provision lautet: " & cErgebnis, vbInformation

  Else
     MsgBox "Ihr Wert ohne Provision beträgt: " & sEingabe, vbInformation

  End If

End Sub
_________
viele Grüße
Karl-Heinz

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.05.2022 15:41:47 Sk1988
NotSolved
Blau Laufzeitfehler13
 25.05.2022 16:00:00 volti
NotSolved
25.05.2022 16:16:55 Gast28166
NotSolved
25.05.2022 16:36:54 volti
NotSolved
25.05.2022 16:54:22 Sk1988
NotSolved
25.05.2022 16:57:18 Sk1988
NotSolved
25.05.2022 17:08:02 volti
NotSolved
25.05.2022 19:16:12 Sk1988
Solved