Thema Datum  Von Nutzer Rating
Antwort
22.08.2017 11:25:47 Mucrik
NotSolved
22.08.2017 11:29:35 Mucrik
NotSolved
22.08.2017 11:40:24 Ben
NotSolved
Blau Eingabe in Textbox von nicht numerischen Werten wiederholen
22.08.2017 11:38:44 Ben
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
22.08.2017 11:38:44		 Views:
692		 Rating:
     
Antwort:
  Ja
Thema:
Eingabe in Textbox von nicht numerischen Werten wiederholen

Hallo,

dadurch, dass der Beitrag in einer Zeile erfolgt ist, kann der Code nicht richtig interpretiert werden:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub TEST()
    Sheets("ABC").Activate
    'Nächste leere Zeile bestimmen
    NextRow = Cells(Rows.Count, 3).End(xlUp).Row + 1
     
    'Den Namen übertragen
    Cells(NextRow, 3) = Eingabefeld1.Text
    Cells(NextRow, 5) = Eingabefeld2.Text
    Cells(NextRow, 6) = Eingabefeld3.Text
    'Kostenart auswählen
     
    If XXX Then
        Cells(NextRow, 4) = "xxx"
        If YYY Then
            Cells(NextRow, 4) = "yyy"
            If ZZZ Then
                Cells(NextRow, 4) = "zzz"
                'Sicherstellen, dass ein Name eingegeben wird
                If Eingabefeld1.Text = "" Then
                    Ans = MsgBox("Text", vbOKOnly + vbInformation)
                    Exit Sub
                End If
                If Eingabefeld3.Text = "" Then
                    Ans = MsgBox("Text", vbOKOnly + vbInformation)
                    Exit Sub
                End If
                 
                'Sicherstellen, dass Eingabefeld3 eine Zahl ist
                If IsNumeric(Eingabefeld3) Then
                    Eingabefeld3.Text = ""
                    OptionUnknown = True
                Else
                    Ans = MsgBox("Text", vbOKOnly + vbInformation)
                    Exit Sub
                End If
                'Steuerelemente für die nächste Eingabe löschen
                Eingabefeld1.Text = ""
                OptionUnknown = True
                Eingabefeld1.SetFocus
                Eingabefeld2.Text = ""
                OptionUnknown = True
 
End Sub

Bei dieser Interpretation fehlen einige "end if"-Anweisungen.

Die Variablen XXX und YYY werden nicht definiert oder zugewiesen.

LG, Ben

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
22.08.2017 11:25:47 Mucrik
NotSolved
22.08.2017 11:29:35 Mucrik
NotSolved
22.08.2017 11:40:24 Ben
NotSolved
Blau Eingabe in Textbox von nicht numerischen Werten wiederholen
22.08.2017 11:38:44 Ben
NotSolved