Userform Checkbox ein/ausblenden

Hallo zusammen,
im Grunde ist meine Frage eigentlich ganz simple für euch doch stellt sich mein Hirn gerade ein wenig quer.
Ich habe eine Userform in welcher ein Textfeld und 7 CheckBox(en) sind (vorerst). Nun ist mein Ziel, auf Basis des Wertes aus dem Textfeld eine der 7 Checkboxes anzuklicken. Jeder Checkbox ist ein Bereich (per Überschrift) zugeordnet. Der Wert im Textfeld wird aus einer Zelle genommen. Das passt soweit auch.
Im Beispiel:
Textbox1 enthält: Teil A
Checkbox1: von Bereich A
Checkbox2: von Bereich B
.
.
.
Checkbox7: von Bereich G
Ich versuche nun die ganze Zeit schon einen Code zu schreiben der eigentlich nur sagt, wenn eine Checkbox ausgewählt wird, blende alle anderen aus. Nehme ich den Hacken wieder raus, dann lass alle Checkbox(en) wieder erscheinen.
Mit Visible = False/True klappt das teilweise auch mehr oder weniger aber dann wäre ja dieser Codeteil sehr lang da ich ja jede Bedingung durchspielen müsste. Kann man das nicht so wie eine If-Anweisung lösen? Wenn dann bla bla?
Muss ich diesen Code dann in der Userform hinterlegen? Oder hinter den einzelnen Checkbox(en)?
Hinterlege ich diesen "hinter" die Userform, geht mal gar nichts...
Hinterlege ich diesen "hinter die Checkbox, dann gehts. Aber dann hätte ich ja mind. 8 Subs. Und da kommen noch ein paar hinzu. Und mit ein paar meine ich noch 24 Textfelder á 7 Checkbox(en).
Warum ich das ganze mache? Im Grunde werden mir max. 25 Teile angezeigt die dann einzeln per Checkbox sortiert werden. Danach werden diese später erneut in Excel sortiert aufgelistet auf die einzelnen Bereich und daraus entsteht dann ein Diagramm. Natürlich sollte nun die Frage kommen, warum nicht einfach händisch oder per Formel. Nun da sich die Teile ändern. Und um dies nicht immer im Code abzuändern bzw. bei den Formeln, soll alles in einer Userform ausgegeben werden und da kann man dann sicher sortieren, dass nichts verloren geht.
Primär geht es mir nur um eine Möglichkeit, den Code einfach und kurz zu halten.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CheckBox1_Click() HideChkBx CheckBox1 End Sub Private Sub CheckBox2_Click() HideChkBx CheckBox2 End Sub Private Sub CheckBox3_Click() HideChkBx CheckBox3 End Sub 'etc. Sub HideChkBx(dieBox As Object) Dim i As Integer For i = 1 To 8 If i CInt(Mid(dieBox.Name, 9)) Then UserForm1.Controls("CheckBox" & i).Visible = Not dieBox End If Next End Sub

Sub Comboaction With Teil_Auswahl.ComboBox1 .AddItem "Bereich0", 0 .AddItem "Bereich1", 1 .AddItem "Bereich2", 2 .AddItem "Bereich3", 3 .AddItem "Bereich4", 4 .AddItem "Bereich5", 5 .AddItem "Bereich6", 6 End With End Sub

lrow2 = Sheets(2).UsedRange.Rows.Count For i = 22 To lrow2 'Ab dort werden die Werte eingetragen For a = 1 To 7 'Bisher sind 7 Comboboxen vorhanden If .Cells(i, 1).Value Empty Then Userform.controls("TextBox" & a).Value = _ .Range(i,1).Value Else: Userform.controls("ComboBox" & a).Visible = False Userform.controls("TextBox" & a).Visible = False Exit For Next a Next i

Private Sub UserForm() Userform.Show 'Der Auswertungsdatei den Namen Grafik zuweisen Grafik = ActiveWorkbook.Name With Workbooks(Grafik).Sheets(2) lrow2 = Sheets(2).UsedRange.Rows.Count For i = 22 To lrow2 'Ab dort werden die Werte eingetragen For a = 1 To 7 'Bisher sind 7 Comboboxen vorhanden If .Cells(i, 1).Value Empty Then Userform.controls("TextBox" & a).Value = _ .Range(i, 1).Value _ Else: Userform.controls("ComboBox" & a).Visible = False Userform.controls("TextBox" & a).Visible = False Exit For Next a Exit For Next i End With End Sub

Private Sub UserForm_anzeigen() Dim Grafik, i, a, lrow2 'Der Auswertungsdatei den Namen Grafik zuweisen Grafik = ActiveWorkbook.Name With Workbooks(Grafik).Sheets(2) With .UsedRange lrow2 = .Row + .Rows.Count - 1 End With a = 1 For i = 22 To lrow2 'Ab dort werden die Werte eingetragen If .Cells(i, 1).Value Empty Then UserForm.Controls("TextBox" & a).Value = .Cells(i, 1).Value Else UserForm.Controls("ComboBox" & a).Visible = False UserForm.Controls("TextBox" & a).Visible = False End If a = a + 1 If a > 7 Then Exit For Next i End With UserForm.Show End Sub

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform Checkbox ein/ausblenden

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread