Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform Combob als Pflichtfeld

Forumthread: Userform Combob als Pflichtfeld

Userform Combob als Pflichtfeld
Matthias
Hallo zusammen,
ich habe eine Userform mit 3 Comboxen, mit OK werden die Daten aus den Comboxen in bestimmte Zellen geschrieben.
Wie stelle ich ein dass der OK klick nur funktioniert wenn die drei Boxen ausgefüllt sind?
DANKE!
Anzeige

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

Betreff
Benutzer
Anzeige
frag cbo.ListIndex>0 ab ...
09.09.2010 14:50:31
Matthias
Hallo
so aus dem Stehgreif
nicht getestet ... aber in etwa so:
CommandButton_Ok.Enabled = Combobox1.ListIndex >-1 And Combobox2.ListIndex >-1 And Combobox3.ListIndex >-1
Gruß Matthias
sorry ... ListIndex >-1 oT
09.09.2010 14:51:20
Matthias
AW: Userform Combob als Pflichtfeld
09.09.2010 14:55:26
EvilRik
Hallo Matthias,
füge das am Anfang des Click Ergeignis deines Buttons ein. 
...
Dim zae1 As Integer
For zae1 = 1 To 3
With UserForm1.Controls("ComboBox" & zae1)
If .Value = "" Then MsgBox "Bitte machen Sie alle Angaben": Exit Sub
End With
Next zae1
...

Gruß Henrik
Anzeige
AW: Userform Combob als Pflichtfeld
10.09.2010 12:43:45
Matthias
Hallo Henrik,
bei mir kommt da der Fehler:
With UserForm_KS_Angaben.Controls("Me.ComboBox" & zae1)
Meine Boxen heisen ComboBox_Name1, ComboBox_Ware, ComboBox_Dienstleistung...
spielt dass eine Rolle?
Danke schon mal
AW: Userform Combob als Pflichtfeld
10.09.2010 13:01:01
EvilRik
Hallo Matthias,
so soltte es funktionieren. 

With UserForm_KS_Angaben
If .ComboBox_Name1.Value = "" Or _
.ComboBox_Ware.Value = "" Or _
.ComboBox_Dienstleistung.Value = "" Then
MsgBox "Bitte machen Sie alle Angaben!": Exit Sub
End If
End With
...

Gruß Henrik
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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