Inhalt aller Comboboxen löschen

[Armin Parth]

Hallo Cracks,
ich habe eine Tabelle und dort 40 Comboboxen wegen der Matchcode
Eingabe. Die Daten werden in andere Zellen übernommen und dann
gedruckt usw.
Problem: Die Comboboxen wurden über die Steuerelemente Toolbox
eingefügt und man kann Werte aus einem anderen Tabellenblatt
auswählen. Beim Beenden der Mappe über eine Makro (Schaltfläche)
sollen die Comboboxen alle leer gemacht werden, damit beim nächsten
Aufruf der Datei neu eingegeben werden kann. Ist für euch sicher ne
Kleinigkeit. (Anmerkung: Das Beenden Makro existiert bereits, da steht
drin wohin die Datei übermittelt wird, dass Teile davon ausgedruckt
werden usw.)

[Björn Aupperle]

Hallo,

meines Wissens nach geht das über

NamederCombobox.clear
Gruß Björn

Post by Armin Parth
Hallo Cracks,
ich habe eine Tabelle und dort 40 Comboboxen wegen der Matchcode
Eingabe. Die Daten werden in andere Zellen übernommen und dann
gedruckt usw.
Problem: Die Comboboxen wurden über die Steuerelemente Toolbox
eingefügt und man kann Werte aus einem anderen Tabellenblatt
auswählen. Beim Beenden der Mappe über eine Makro (Schaltfläche)
sollen die Comboboxen alle leer gemacht werden, damit beim nächsten
Aufruf der Datei neu eingegeben werden kann. Ist für euch sicher ne
Kleinigkeit. (Anmerkung: Das Beenden Makro existiert bereits, da steht
drin wohin die Datei übermittelt wird, dass Teile davon ausgedruckt
werden usw.)

[Melanie Breden]

Hallo Armin,

Post by Armin Parth
ich habe eine Tabelle und dort 40 Comboboxen wegen der Matchcode
Eingabe. Die Daten werden in andere Zellen übernommen und dann
gedruckt usw.
Problem: Die Comboboxen wurden über die Steuerelemente Toolbox
eingefügt und man kann Werte aus einem anderen Tabellenblatt
auswählen. Beim Beenden der Mappe über eine Makro (Schaltfläche)
sollen die Comboboxen alle leer gemacht werden, damit beim nächsten
Aufruf der Datei neu eingegeben werden kann. Ist für euch sicher ne
Kleinigkeit. (Anmerkung: Das Beenden Makro existiert bereits, da steht
drin wohin die Datei übermittelt wird, dass Teile davon ausgedruckt
werden usw.)

versuchs mal so:

Public Sub ResetComboBox()
Dim obj As OLEObject

For Each obj In ActiveSheet.OLEObjects
If obj.progID = "Forms.ComboBox.1" Then
obj.Object.Text = ""
End If
Next obj
End Sub

[BorisX]

Hi Melanie,

Post by Melanie Breden
Public Sub ResetComboBox()
Dim obj As OLEObject
For Each obj In ActiveSheet.OLEObjects
If obj.progID = "Forms.ComboBox.1" Then
obj.Object.Text = ""
End If
Next obj
End Sub

Super!
Wie kommt man denn auf die "progID-Eigenschaft"?!?!? ;-)))

[Melanie Breden]

Hallo Boris,

Post by BorisX

Post by Melanie Breden
Public Sub ResetComboBox()
Dim obj As OLEObject
For Each obj In ActiveSheet.OLEObjects
If obj.progID = "Forms.ComboBox.1" Then
obj.Object.Text = ""
End If
Next obj
End Sub

Super!
Wie kommt man denn auf die "progID-Eigenschaft"?!?!? ;-)))

durchlaufe die Prozedur im Einzelschrittmodus.
Im Lokalfenster wird die Variable 'obj' aufgeführt.
Dort kannst du alle Eigenschaften des Objektes mit seinen Werten ablesen ;-)