Checkbox(en) löschen
09.06.2006 22:50:08
Thomas
Zu später Stunde noch eine Kleine Frage:
Ich möchte aus einem Tabellenblatt die letzte ermittelte CheckBox Löschen.
"b" gibt hierbei an wie oft der Vorgang wiederholt werden soll
(wird an einer anderen Stelle im Code aus der Anzahl der markierten CheckBoxen ermittelt).
[Code]
'CheckBox(en) Löschen
For n = 1 To b
i = 0
a = ""
Box = ""
x = 0
'Name der Letzten CheckBox ermitteln
For i = 1 To OLEObjects.Count
If OLEObjects(i).ProgId = "Forms.CheckBox.1" Then
Box = OLEObjects(i).Name
End If
Next
' Löschen der Letzten CheckBox
For x = 1 To OLEObjects.Count
If OLEObjects(x).Name = Box Then
OLEObjects(x).Delete
End If
Next
Next
[/Code]
Soweit so gut. die CheckBox ist gelöscht.
aber gleich darauf kommt Meldung:
Laufzeitfehler '1004'
Anwendungs- oder objektdefinierter Fehler
Ich kann hinsehen solange ich will, aber Fehler finde ich keinen.
Kann mir bitte jemand weiterhelfen oder eine Möglichkeit zeigen um das Ganze anders zu lösen.
Besten Dank im Voraus