Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1176to1180
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 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!

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
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
Anzeige
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige