Thema Datum  Von Nutzer Rating
Antwort
12.04.2021 16:22:45 Gast62441
NotSolved
12.04.2021 16:26:06 MRUTOR
NotSolved
13.04.2021 08:12:43 Gast81446
NotSolved
Blau "Pflichtfelder" in VBA-Eingabe-Maske
 13.04.2021 16:42:36 MRUTOR
NotSolved
13.04.2021 23:06:18 Gast89839
NotSolved
14.04.2021 08:58:24 MRUTOR
NotSolved
14.04.2021 13:18:33 Gast22053
NotSolved

Ansicht des Beitrags:
Von:
MRUTOR		 Datum:
13.04.2021 16:42:36		 Views:
760		 Rating:
     
Antwort:
  Ja
Thema:
"Pflichtfelder" in VBA-Eingabe-Maske

Hallo Gast,

ja das geht in deinem Fall, da alle Textboxen durchnummeriert sind, recht einfach mit einer For Next Schleife. Also fuer alle Textboxen:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 
Dim i As Long
 
For i = 1 To 17
    If Me.Controls("TextBox" & i) = "" Then
        MsgBox "Bitte etwas eintragen"
        Me.Controls("TextBox" & i).SetFocus
        Exit Sub
    End If
Next
 
End Sub

Deinen Code zum Eintragen in die Tabelle kann man uebrigens auch verkuerzen. Schade, dass da die 2 Comboboxen dazwischen sind. Sonst waere es auch hier moeglich, dass noch mehr mit einer Schleife zu verkuerzen.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim letzte as Long
 
With Worksheets("")
    letzte = .Cells(Rows.Count, 1).End(xlUp).Offset(1).Row
    .Cells(letzte, 1) = TextBox1.Value
    .Cells(letzte, 2) = TextBox2.Value
    .Cells(letzte, 3) = TextBox3.Value
    .Cells(letzte, 4) = TextBox4.Value
    .Cells(letzte, 5) = TextBox5.Value
    .Cells(letzte, 6) = TextBox6.Value
    .Cells(letzte, 7) = TextBox7.Value
    .Cells(letzte, 8) = TextBox8.Value
    .Cells(letzte, 9) = TextBox9.Value
    .Cells(letzte, 10) = TextBox10.Value
    .Cells(letzte, 11) = TextBox11.Value
    .Cells(letzte, 12) = TextBox12.Value
    .Cells(letzte, 13) = TextBox13.Value
    .Cells(letzte, 14) = TextBox14.Value
    .Cells(letzte, 15) = TextBox15.Value
    .Cells(letzte, 16) = ComboBox1.Value
    .Cells(letzte, 17) = ComboBox2.Value
    .Cells(letzte, 18) = TextBox16.Value
    .Cells(letzte, 19) = TextBox17.Value
End With

Gruss Tor

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
12.04.2021 16:22:45 Gast62441
NotSolved
12.04.2021 16:26:06 MRUTOR
NotSolved
13.04.2021 08:12:43 Gast81446
NotSolved
Blau "Pflichtfelder" in VBA-Eingabe-Maske
 13.04.2021 16:42:36 MRUTOR
NotSolved
13.04.2021 23:06:18 Gast89839
NotSolved
14.04.2021 08:58:24 MRUTOR
NotSolved
14.04.2021 13:18:33 Gast22053
NotSolved