Werte von Active-X-Elemente auf Tabellenblatt ausg

Sub SU_Tabelle_Elemente_auflisten_Namen_Herber()
Dim j%, sTxt$, sNam$, sTyp$, sVal$, sTmp$
Dim obj As Object
For Each obj In Tab01.OLEObjects
sNam = obj.Name
sTyp = obj.progID
'sVal = ? 'Wert von Checkbox, OptionBox, Combobox, Listfeld (markierte), etc.
sTxt = sTxt & sTyp & vbTab & sNam & vbLf
Next
MsgBox sTxt
End Sub