Textfelder Userform Button Enabeled

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CMD_Leeren_Click() Dim ObCb As Object CMD_Druck.Enabled = True For Each ObCb In Me.Controls If TypeName(ObCb) = "TextBox" Then If ObCb = "" Then CMD_Druck.Enabled = False End If End If Next ObCb End Sub

Private Sub TextBox1_Change() If TextBox1 <> "" Then CommandButton1.Tag = CLng(CommandButton1.Tag) + 1 Else CommandButton1.Tag = CLng(CommandButton1.Tag) - 1 End If If CLng(CommandButton1.Tag) = 3 Then '<== Anzahl anpassen CommandButton1.Enabled = True Else CommandButton1.Enabled = False End If End Sub

PrivateSub Commandbutton1_Click() dim AlleTextboxenBefüllt as boolean AlleTextboxenBefüllt = True if Textbox1.Text = "" then AlleTextboxenBefüllt = False if Textbox2.Text = "" Then AlleTextboxenBefüllt = False ... usw für alle relevanten Textboxen if AlleTextboxenBefüllt Then ... hier dier Code der normalerweise ablaufen soll wenn der Button geklickt wird Else msgbox "Bitte erst alle Textboxen ausfüllen", vbCritical End If End Sub

' Modul: UserForm1 Typ: Userform Option Explicit Private Sub CheckBox1_Click() CheckAll End Sub Private Sub CheckBox2_Click() CheckAll End Sub Private Sub CheckBox3_Click() CheckAll End Sub Private Sub CheckBox4_Click() CheckAll End Sub Private Sub CheckBox5_Click() CheckAll End Sub Private Sub CheckAll() CommandButton1.Enabled = CheckBox1 Or CheckBox2 Or CheckBox3 Or CheckBox4 Or CheckBox5 End Sub Private Sub UserForm_Initialize() CommandButton1.Enabled = False End Sub

Hi
funktioniert im Prinzip genauso
nur dass du eben satt:
Commandbutton1.Enabled = Checkbox1 or Checkbox2 or ....
dann schreiben musst
Commandbutton1.Enabeled = (Textbox1.Text <> "") AND (Textbox1.Text <> "") AND (Textbox3.Text <> "")...
und das das auslösenden Element für CheckALL nicht das Click-Event der Textboxen ist, sondern das Change-Event.
ich bleibe aber dabei:
ich würde den Commandbutton permanent Enaabled lassen und die Prüfung beim Click auf den Commandbutton ausführen.
das ist einfacher, weil du dann die prüfung nicht bei jeder Änderung in den Textboxen auführen musst und damit deine ganzen Change-Events entfallen, mit welchen du das CheckAll aufrufen musst.
Ausserdem hast du dann zusätzlich die Möglichkeit, den Anwender mit einer Messagebox darüber zu informieren, warum sein Clickmakro jetzt noch nicht ausgeführt werden kann und was er noch tun muss.
Im anderen Fall fragt sich ein unerfahrener Anwender vielleicht, warum der "blöde" Button nicht endlich aktiv wird ohne dass er eine Information bekommt, was er tun muss.
gruss Daniel

Beliebteste Forumthreads (12 Monate)

Textfelder Userform Button Enabeled

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread