> Hallo Helmut,
>
> Private Sub CMD_Liste1_Click()
> ' auflisten aller Steuerelemente in der UserForm, getrennt nach Typen
> Dim ObCb As Object
> Sheets.Add
> ActiveSheet.Name = "Steuerelemente_Typ"
> Cells(1, 1) = "Textbox"
> Cells(1, 2) = "Listbox"
> Cells(1, 3) = "Multipage"
> Cells(1, 4) = "CommandButton"
> Cells(1, 5) = "Label"
> Cells(1, 6) = "Kontrollkästchen"
> Cells(1, 7) = "OptionButton"
> Cells(1, 8) = "ToggleButton"
> Cells(1, 9) = "Frame"
> Cells(1, 10) = "ScrollBar"
> Cells(1, 11) = "ScrollBar"
> Cells(1, 12) = "Image" ...

> On 10 Mai, 18:59, Hajo_Zi discussions.microsoft.com> wrote:

>> Hallo Helmut,
>>
>> Private Sub CMD_Liste1_Click()
>> ' auflisten aller Steuerelemente in der UserForm, getrennt nach Typen...

> Hallo Helmut,
>
> der Code ist unter der Userform und wird mittels CommandButton ausgelöst.
> Auftrag ist der Name der Userform, Du kannst dafür auch Me schreiben.
>
> Gruß Hajo
> MVP für Microsoft Excel
> Betriebssystem Vista Ultimate und Excel Version2007http://Hajo-Excel.de/
>
> "HelmutMit" wrote:

>> On 10 Mai, 18:59, Hajo_Zi discussions.microsoft.com> wrote:

>>> Hallo Helmut,

>

>>> Private Sub CMD_Liste1_Click()
>>> ' auflisten aller Steuerelemente in der UserForm, getrennt nach Typen
>>> Dim ObCb As Object
>>> Sheets.Add
>>> ActiveSheet.Name = "Steuerelemente_Typ"
>>> Cells(1, 1) = "Textbox" ...