Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1404to1408
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
Checkboxen in UF einblenden
05.02.2015 21:44:22
Heinz
Hallo leute im Forum
Ich habe eine UF mit CheckBoxen.
Wie könnte ich den unteren Code vereinfachen?
CheckBox2.Visible = IIf(ComboBoxLinie.Value = "311", 1, 0)
CheckBox2.Visible = IIf(ComboBoxLinie.Value = "312", 1, 0)
CheckBox2.Visible = IIf(ComboBoxLinie.Value = "321", 1, 0)
CheckBox2.Visible = IIf(ComboBoxLinie.Value = "322", 1, 0)
CheckBox2.Visible = IIf(ComboBoxLinie.Value = "331", 1, 0)
Hätte jemand eine Hilfe anzubieten?
Danke & Gruß Heinz

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Checkboxen in UF einblenden
05.02.2015 23:25:27
Matthias
Hallo Heinz
Wieso schreibst Du im Betreff: Checkboxen
wenn im Code nur eine steht?
Ob das nun eine Vereinfachung ist, musst Du selbst beurteilen.
Private Sub ComboBoxLinie_Change()
Select Case ComboBoxLinie.Value
Case Is = 311, 312, 321, 322, 331
CheckBox2.Visible = True
Case Else
CheckBox2.Visible = False
End Select
End Sub
Gruß Matthias

AW: Checkboxen in UF einblenden
06.02.2015 05:19:12
Gerd
Hallo Heinz!
Private Sub ComboBoxLinie_Change()
CheckBox2.Visible = InStr("311 312 321 322 331", ComboBoxLinie.Text) = 0
End Sub
Gruß Gerd

Anzeige
Danke an Matthias & Gerd
06.02.2015 12:29:11
Heinz
Hallo Matthias & Gerd
Recht herzlichen DANK, für Eure Hilfe.
Funktionieren beide wunderbar.
Schönes Wochenende, Heinz

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige