CheckBox zur Laufzeit einlesen

Hallo xlGurus,
Bei Änderungen in Spalte H öffnet sich ein UserForm mit CheckBoxen.
CheckBox.Caption wird über eine Liste mit dem Namen "Suche" gesteuert.
Lässt sich dieser Name auch im VBA-Code benutzen (siehe: Private Sub UserForm_Initialize ) ?
Die CheckBox.Caption soll als Suchbegriff für TeilString in Spalte K genutzt werden.
Gesucht wird allerdings nicht in der gesamten Spalte K, sondern nur in der jeweiligen Zeile.
Soweit habe ich mich schon laienhaft vorgearbeitet - das "Einlesen" in die CheckBoxen scheint zu funktionieren.
Doch nun komme ich absolut nicht weiter. Selbst nach stundenlanger Recherche hier im Archiv drehe ich mich nur noch im Kreise.
Aber vllt. mache ich schon hier gravierende Fehler ?
Mein Ziel ist:
Durch An- od. Abwahl einer CheckBox soll der hinterlegte Begriff in K erscheinen od. verschwinden.
Jeder Begriff darf nach der Bearbeitung nur noch einmal vorkommen, wobei die Reihenfolge in der Zelle nicht interessant ist.
Ich freue mich auf Eure Hilfe.
Gruss
Dirk
P.S.: aktueller Bearbeitungsstand
https://www.herber.de/bbs/user/100339.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
lösche in der Userform alle Checkboxen und erstelle stattdessen eine Listbox (Listbox1)
mache für diese Listbox folgende Einstellungen in der Eigenschaftsliste:
- RowSource: Suche (das ist der Name, den du für den Quellzellbereich verwendet hast)
- MultiSelect: 1-fmMultiselectMulti oder 2-fmMultiSelectExtended
- ListStyle: 1-fmListStyleOption (optional, dann sieht die Listbox aus wie Checkboxen)
schreibe folgenden Code ins Modul der Listbox (alles andere kannst du löschen)

Option Explicit
Private Sub CommandButton1_Click()
Dim txt As String
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then txt = txt & ListBox1.List(i)
Next
Cells(ActiveCell.Row, "K").Value = txt
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim txt As String
Dim i As Long
txt = Cells(ActiveCell.Row, "K").Value
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = txt Like "*" & ListBox1.List(i) & "*"
Next
End Sub

wenn die Listbox aktiviert wird, dann überprüft der Code welche Elemente der Listbox in der Zelle in Spalte K vorkommen und setzt entsprechend die Häkchen.
bei KLick auf den Button wird dann der Zelltext der zelle in Spalte K entsprechend der gesetzen Häkchen geändert.
Gruß Daniel

Private Sub CommandButton1_Click() Dim txt As String Dim i As Long txt = Cells(ActiveCell.Row, "K").Value For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then if Instr(txt, Listbox1).list(i)) = 0 then txt = txt & ListBox1.List(i) else txt = replace(txt, Listbox1.List(i), "") end if Next Cells(ActiveCell.Row, "K").Value = txt Unload Me End Sub

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

CheckBox zur Laufzeit einlesen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread