Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte TextBoxen in Userform prüfen

Bestimmte TextBoxen in Userform prüfen
15.07.2015 12:21:11
Uli
Moin moin,
ich habe ein kleines Problem bei meinem Formular. Ich habe einige Textboxen und Comboboxen. Bestimmte Textboxen werden nur aktiv, wenn eine vorherige Textbox ausgefüllt wurde. Bevor ich auf "OK" klicke und die Daten in eine Tabelle eingetragen werden, geprüft werden, ob ganz bestimmte Textboxen befüllt wurden.
Mein Code lautet: 

Private Sub cmdOK_Click()
Dim letzteZeile As Long
Dim objtxt As Object
Set quelle = Worksheets("Anträge")
Set ziel = Worksheets("Wohnungsbau")
Set daten = Worksheets("Daten")
letzteZeile = quelle.Cells(Rows.Count, 1).End(xlUp).Row + 1
With Me
For Each objtxt In .Controls
If TypeName(objtxt) = "TextBox" Then
If objtxt.Value = "" Then
MsgBox " Bitte die Textfelder ausfüllen!", 48
objtxt.SetFocus
Exit Sub
End If
End If
Next
quelle.Cells(letzteZeile, 1).Value = lbldatum
quelle.Cells(letzteZeile, 2).Value = .txtakz
End With
Unload Me
End Sub
Dabei prüft er jede Textbox. Wie lautet der code, wenn er bestimmte Textboxen nicht überprüfen soll?
Danke für Eure Hilfe

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte TextBoxen in Userform prüfen
15.07.2015 12:32:52
PeTeR
Hi Uli,
deine Textboxen haben ja auch Namen. Darüber kannst du bestimmte Textboxen prüfen:
If Me.Textbox1.value="" then
msgbox "Bitte Textbox 1 füllen"
me.textbox1.setfocus
exit sub
end if
3 Textboxen prüfen heisst 3 Mal If...then...end if
Viel Erfolg
PeTeR

AW: Bestimmte TextBoxen in Userform prüfen
15.07.2015 12:54:30
Uli
Vielen Dank. Und wenn ich 28 Textboxen habe, von denen nur zwei nicht geprüft werden müssen? Geht das auch im Ausschlußverfahren?

AW: Bestimmte TextBoxen in Userform prüfen
15.07.2015 18:28:35
Nepumuk
Hallo,
würde ich so machen:
Private Sub cmdOK_Click()
    Dim letzteZeile As Long
    Dim objControl As Control
    
    Set quelle = Worksheets("Anträge")
    Set ziel = Worksheets("Wohnungsbau")
    Set daten = Worksheets("Daten")
    
    letzteZeile = quelle.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    For Each objControl In Controls
        If TypeOf objControl Is MSForms.TextBox Then
            Select Case objControl.Name
                Case "TextBox1", "TextBox2"
                    'mach nix
                Case Else
                    If objControl.Value = "" Then
                        MsgBox " Bitte die Textfelder ausfüllen!", vbExclamation
                        objControl.SetFocus
                        Exit Sub
                    End If
            End Select
        ElseIf TypeOf objControl Is MSForms.ComboBox Then
            Select Case objControl.Name
                Case "ComboBox1", "ComboBox2"
                    'mach nix
                Case Else
                    If objControl.ListIndex = -1 Then
                        MsgBox " Bitte etwas auswählen!", vbExclamation
                        objControl.SetFocus
                        Exit Sub
                    End If
            End Select
        End If
    Next
    
    quelle.Cells(letzteZeile, 1).Value = lbldatum
    quelle.Cells(letzteZeile, 2).Value = txtakz
    ....
    
    Unload Me
    
End Sub

Gruß
Nepumuk

Anzeige
AW: Bestimmte TextBoxen in Userform prüfen
15.07.2015 12:50:54
Uli
vielen Dank Peter,
die Prozedur habe ich probiert und ist natürlich bei 28 Textboxen bzw. Comboboxen sehr lang.
Es brauchen lediglich 3 Textboxen und eine combobox nicht geprüft werden. Geht es dann auch irgendwie im Ausschlußverfahren leichter?

AW: Bestimmte TextBoxen in Userform prüfen
15.07.2015 18:33:44
PeTeR
Hallo Uli,
ungetestet würde ich es so probieren: Angenommen Textbox1, Textbox15 und Textbox21 sollen NICHT geprüft werden:
With Me
For Each objtxt In .Controls
If TypeName(objtxt) = "TextBox" Then
If objtxt.name"Textbox1" and objtxt.name"Textbox15" and objtxt.name"Textbox21" then
If objtxt.Value = "" Then
MsgBox " Bitte die Textfelder ausfüllen!", 48
objtxt.SetFocus
Exit Sub
end if
End If
End If
Next
quelle.Cells(letzteZeile, 1).Value = lbldatum
quelle.Cells(letzteZeile, 2).Value = .txtakz
....
End With

Anzeige
AW: Bestimmte TextBoxen in Userform prüfen
16.07.2015 09:24:13
Uli
Vielen Dank an Euch beiden. Es hat wunderbar funktioniert. Vor allem, wie schnell hier die Antworten kommen. Das ist echt der Hammer.

AW: Bestimmte TextBoxen in Userform prüfen
16.07.2015 09:29:41
Daniel
Hi
für solche Fälle gibt es Select Case 

Select Case objtxt.name
Case "Textbox1", "Textbox15", "Textbox21"
Case Else
hier dann der weitere Code
end Select
Gruß Daniel

299 Forumthreads zu ähnlichen Themen

Wert aus Combobox zurückgeben in Textboxen
Peter

Hallo wertes Form
bin kurz vor der Vollende meinesWerkes
benötige aber noch die Hife aus dem Forum
Ich habe eine Combox19, die beim öffnen die 5000-26000 in 100 Steps an zeigt
Wenn ich den wert 0 bis 6999 eingebe soll in einer Textbox27 der wert 130 ausgegeben werden.
ab dem...
10.08.2008 20:06:00
Thread-ID: 1000671
7 Beiträge
Anzeige
Wie kann ich 3 Textboxen wert addieren
Kurt

Guten Abend,
wie kann ich 3 Werte der Textboxen addieren ?
Habe es so versucht:
Label69.Caption = TextBox13.Value + TextBox14.Value + TextBox15.Value
mfg Kurt
(nicht Orginal)
14.08.2008 20:54:00
Thread-ID: 1001982
4 Beiträge
Färben von Textboxen in Userform
Textboxen

Guten Morgen!
Ich habe in einer UserForm 22 TextBoxen in denen Zahlen stehen.
Wenn eine positive Zahl in den Textboxen steht, dann soll der Hintergrund (Backcolor) grün gefärbt werden.
Wenn eine negative Zahl in den Textboxen steht dann soll der Hintergrund hellrot gefärbt werden.<...
21.08.2008 07:38:00
Thread-ID: 1003354
4 Beiträge
Anzeige
TextBoxen formatieren
Frank

Hallo liebes Forum!
Wieder einmal brauche ich Rat! In einem Tabellenblatt befinden sich mehrere Textboxen, welche über die Eigenschaft LinkedCell sich ihren Inhalt holen. Nun möchte ich das wenn der darin befindliche Wert negativ ist, der Inhalt rot geschrieben wird. Wie bekomme ich zwische...
28.10.2008 20:37:00
Thread-ID: 1020080
10 Beiträge
TextBoxen werden nicht geleert
Josef

Hallo!
Ich habe folgenden Code in einer Userform
Private Sub ListBox1_Click() On Error Resume Next If ListBox1.List(ListBox1.ListIndex, 7) = "EV-N / FV-XPV" Then Call Text_EF Call Text_EF2 Call Text_EF3 TextBox40.Text = "" Else If ListBox1.List(ListBox1.ListIndex, 7) = "J" Then TextBo...
29.10.2008 14:19:00
Thread-ID: 1020283
3 Beiträge
Textboxen aus Tabelle füllen
Sebastian

Guten Abend zusammen,
ich sitze wieder mal vor einem Problem und hoffe auf eure Hilfe. Ich habe eine Tabelle mit Kundennamen, die sich von Monat zu Monat verändert. Ich möchte nun (wenn möglich) eine Userform mit einer variablen Anzahl von Textfeldern auf "Knopfdruck" generieren, wobei die...
03.11.2008 18:25:00
Thread-ID: 1021413
6 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
Rechnen mit TextBoxen
Frank

Hallo Zusammen!!!
Einen schönen guten Abend und schon vorab Danke für bestimmt zahlreiche Hilfe!
Ich benutze folgenden Code:
TextBox4.Value = TextBox2.value - TextBox3.Value
Diese Codezeile wird mittels Klick auf eine Schaltfläche ausgelöst. Funzt mit normalen Zahlen auch Super,...
14.11.2008 19:27:33
Thread-ID: 1024690
7 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
7
3
3
1
9
2
5
2
6
5
2
11
4
4
1
20
12
2
5
15
2
3
14
1