Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1344to1348
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
Inhaltsverzeichnis

Userform Eingaben prüfen

Userform Eingaben prüfen
31.01.2014 07:34:29
lisa
Guten Morgen,
in meiner UF habe ich mehr als 30 Steuerelemente Text und ComboBoxen.
Diese werden beim Start je nach Border.Color gefärbt.
Nun möchte ich prüfen lassen ob alle gefärbten Steuerelemente auch ausgefüllt
sind.
Leider geht das nicht.
Danke, Gruß Lisa
https://www.herber.de/bbs/user/89038.xlsm

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform Eingaben prüfen
31.01.2014 08:50:20
Beverly
Hi Lisa,
ich weiß nicht, ob ich dich richtig verstanden habe - hier der Code, wie ich deine Frage interpretiert habe:
Private Sub CommandButton2_Click()
Dim bytZaehler As Byte
For Each Obcd In Me.Frame1.Controls
Select Case TypeName(Obcd)
Case "TextBox", "ComboBox"
If Obcd.BackColor = 16776936 And Obcd = "" Then bytZaehler = bytZaehler + 1
End Select
Next Obcd
If bytZaehler  0 Then
Label1 = "nicht alle"
Else
Label1 = "alle"
End If
End Sub


Anzeige
AW: Userform Eingaben prüfen
31.01.2014 09:30:14
lisa
Hallo Karin,
Danke!
genau das wollte ich haben,
kann ich auch exakt zu der text oder combobox springen wenn
die Bedingung nicht erfüllt ist?
Gruß
Lisa

AW: Userform Eingaben prüfen
31.01.2014 09:34:06
Beverly
Hi Lisa,
und wohin willst du springen, wenn mehrere nicht gefüllt sind?


AW: Userform Eingaben prüfen
31.01.2014 09:37:17
lisa
Hallo Karin,
zu der ersten die die Bedingung nicht erfüllt!
Gruß, Lisa

AW: Userform Eingaben prüfen
31.01.2014 10:14:46
Beverly
Hi Lisa,
Private Sub CommandButton2_Click()
Dim bytZaehler As Byte
Dim strErste As String
For Each Obcd In Me.Frame1.Controls
Select Case TypeName(Obcd)
Case "TextBox", "ComboBox"
If Obcd.BackColor = 16776936 And Obcd = "" Then
bytZaehler = bytZaehler + 1
If strErste = "" Then strErste = Obcd.Name
End If
End Select
Next Obcd
If bytZaehler  0 Then
Label1 = "nicht alle"
Me.Controls(strErste).SetFocus
Me.Repaint
Else
Label1 = "alle"
End If
End Sub


Anzeige
AW: Userform Eingaben prüfen
31.01.2014 10:34:54
lisa
Hallo Karin,
tausendfachen, Dank!
Gruß
Lisa

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige