CheckBoxen löschen sich bzw. werden neu erzeugt
29.06.2024 17:14:03
Excelfan1
ich habe schon wieder ein Problem.
Über Auswahl der ComboBox cbZahl im UserForm wird die benannte Tabelle "Filter" gefiltert und daraufhin Checkboxen erzeugt.
1.Variante
Private Sub OptionenAnzeigen()
Dim cntChk As Object
Dim c As Range, Zelle As Range
Dim i&, zeile&, Spalte&
Set c = ActiveCell
OleButtonsDel
Sheets("Daten").ListObjects("Filter").Range.AutoFilter Field:=1, Criteria1:=Range("A1").Text
Spalte = 2: zeile = 5
For i = 1 To Range("Filter").SpecialCells(xlCellTypeVisible).Rows.Count
Set Zelle = Cells(zeile + i, Spalte)
Zelle.Select
Set cntChk = Sheets("Auswertung").OLEObjects.Add("Forms.CheckBox.1")
With cntChk
.Object.Caption = Range("Filter").SpecialCells(xlCellTypeVisible).Cells(i, 2)
.Width = 50 'Checkbox Breite für Text
.Height = 20
End With
Next
c.Select
End SubHier werden, wenn in irgendeine Zelle etwas eingegeben oder das UserForm geöffnet wird, alle CheckBoxen immer wieder neu erzeugt.
Warum?
https://www.herber.de/bbs/user/170570.xlsm
Ich habe eine neue Datei erstellt in der der "Filter" ansers erstellt und auch der Wert in cbZahl anders vorbelegt wird
2.Variante
Private Sub OptionenAnzeigen()
Dim cntChk As Object
Dim c As Range, Zelle As Range
Dim i&, zeile&, Spalte&
Set c = ActiveCell
OleButtonsDel
With ThisWorkbook.Worksheets("Daten")
.ListObjects("Filter").Range(1).AutoFilter
.ListObjects("Filter").Range(1).AutoFilter 1, frm1_Test1.cbZahl.Value
End With
Spalte = 2: zeile = 5
For i = 1 To Range("Filter").SpecialCells(xlCellTypeVisible).Rows.Count
Set Zelle = Cells(zeile + i, Spalte)
Zelle.Select
Set cntChk = Sheets("Auswertung").OLEObjects.Add("Forms.CheckBox.1")
With cntChk
.Object.Caption = Range("Filter").SpecialCells(xlCellTypeVisible).Cells(i, 2)
.Width = 50 'Checkbox Breite für Text
.Height = 20
End With
Next
c.Select
End Sub
Hier werden, wenn in irgendeine Zelle etwas eingegeben wird, alle CheckBoxen gelöscht. Warum?
https://www.herber.de/bbs/user/170571.xlsm
"OleButtonsDel" soll erst wieder ausgeführt werden wenn der Wert in cbZahl geändert wird.
Ich habe in beiden Varianten diverse Möglichkeiten in Abhängigkeit des Wertes in cbZahl durchprobiert, leider alles ohne Erfolg.
Wie kann ich, egal in welcher Variante, erreichen, daß die CheckBoxen bei Eingabe in irgendeine Zelle, bestehen bleiben solange der Wert in cbZahl nicht geändert wird?
Beide Dateien anbei
Für eine Antwort herzlichen Dank schon einmal vorab
Anzeige