Thema Datum  Von Nutzer Rating
Antwort
Rot Hilfe bei VBA Anfang
 29.08.2018 20:27:41 Nils
NotSolved
29.08.2018 21:01:57 Flotter Feger
NotSolved
29.08.2018 21:05:57 Mackie
NotSolved
29.08.2018 21:50:42 Gast45233
NotSolved
29.08.2018 21:53:50 Nils
NotSolved

Ansicht des Beitrags:
Von:
Nils		 Datum:
29.08.2018 20:27:41		 Views:
1015		 Rating:
     
Antwort:
  Ja
Thema:
Hilfe bei VBA Anfang

Ich mache gerade für den Anfang meiner Schule VBA und muss so ein Zahlenraten Spiel auf die Beine stellen mit versch. Text ausgängen.

Private Sub cmdFertig_Click()
    Dim intZ1 As Integer
    Dim intZ2 As Integer
    Dim strErgtxt As String
    intZ1 = Val(Me.txtEingabe.Value)
    intZ2 = Val(Me.txtEingabe2.Value)                       'Variablendeklaration
    
    If intZ1 = intZ2 Then
        strErgtxt = "Gratulation. Sie haben es geschafft."
    End If
    If intZ1 > 100 Then
        strErgtxt = "Sie mogeln! Die Zahl soll kleiner als 100 sein!"
        strErgtxt.Font.Bold = True
    End If
    If intZ1 < 0 Then
        strErgtxt = "Sie mogeln! Die Zahl soll größer als 0 sein!"
        strErgtxt.Font.Bold = True
    End If
    If intZ1 > intZ2 Then
        strErgtxt = "Sie müssen in größeren Dimensionen denken."
    ElseIf intZ1 - intZ2 > 10 Then
        strErgtxt = "Sie müssen in größeren Dimensionen denken." & vbNewLine & "Strengen Sie sich etwas mehr an!"
    ElseIf intZ1 - intZ2 <= 10 Then
        strErgtxt = "Sie müssen in größeren Dimensionen denken." & vbNewLine & "Das ist schon ziemlich gut."
    End If
    If intZ1 < intZ2 Then
        strErgtxt = "Sie werden übermütig."
    ElseIf intZ2 - intZ1 > 10 Then
        strErgtxt = "Sie werden übermütig." & vbNewLine & "Strengen Sie sich etwas mehr an!"
    ElseIf intZ2 - intZ1 <= 10 Then
        strErgtxt = "Sie werden übermütig." & vbNewLine & "Das ist schon ziemlich gut."
    End If
    Me.txtErgebnis.Text = strErgtxt

 

Aber er spuckt mir immer Fehler: Ungültiger Bezeichner raus

 

Was kann ich tun :/

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
Rot Hilfe bei VBA Anfang
 29.08.2018 20:27:41 Nils
NotSolved
29.08.2018 21:01:57 Flotter Feger
NotSolved
29.08.2018 21:05:57 Mackie
NotSolved
29.08.2018 21:50:42 Gast45233
NotSolved
29.08.2018 21:53:50 Nils
NotSolved