Thema Datum  Von Nutzer Rating
Antwort
18.01.2015 17:20:54 Jérôme
NotSolved
19.01.2015 01:33:23 Gast67584
NotSolved
20.01.2015 02:21:44 Jamal Bruno
NotSolved
Blau Addieren von zwei zwischenergebnissen in ein textfeld der Userform
 20.01.2015 02:22:30 Gast24661
****
NotSolved

Ansicht des Beitrags:
Von:
Gast24661		 Datum:
20.01.2015 02:22:30		 Views:
783		 Rating:
     
Antwort:
  Ja
Thema:
Addieren von zwei zwischenergebnissen in ein textfeld der Userform		 
Option Explicit

Private Sub CommandButton1_Click()
Dim fa As Integer
Dim fensterpreis As Integer
Dim ergebnis1 As Long
Dim ergebnis2 As Long
Dim türpreis As Integer
Dim ta As Integer
Dim alles As String
Dim gesamtErgebnis As String

  türpreis = 200
  ta = TextBox1.Value             'TextBox   2
  Label3 = TextBox1.Value
  fensterpreis = 100
  fa = TextBox2.Value             'TextBox   1
  Label4 = TextBox2.Value
  Label1 = fa * fensterpreis      'ergebnis  1
  Label2 = ta * türpreis          'ergebnis  2
  ergebnis1 = Label1.Value
  ergebnis2 = Label2.Value
  gesamtErgebnis = ergebnis1 + ergebnis2
  alles = Label2.Value + " + " + Label1.Value + " = "

  If IsNumeric(fa) = False Or IsNumeric(ta) = False Then
    MsgBox ("falsche eingabe")
  Else
    TextBox5.Value = alles + gesamtErgebnis
  End If


End Sub

 

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
18.01.2015 17:20:54 Jérôme
NotSolved
19.01.2015 01:33:23 Gast67584
NotSolved
20.01.2015 02:21:44 Jamal Bruno
NotSolved
Blau Addieren von zwei zwischenergebnissen in ein textfeld der Userform
 20.01.2015 02:22:30 Gast24661
****
NotSolved