Excel VBA: Hinzufügen von Benutzerformular Steuerelemente zu ausgewählten Arbeitsblatt

Question

Ich weiß nicht, wie das zu programmieren und ich weiß auch nicht, wie das zu erklären, aber ich wünschte, es ist verständlich.

Ich habe ein Benutzerformular und ich möchte die Steuerelemente auf diesem Benutzerformular zu einem ausgewählten Arbeitsblatt hinzugefügt werden. Ich denke, ich sollte alle Steuerelemente durchlaufen und dann die Beschriftungen zu einem ausgewählten Arbeitsblatt hinzufügen, ohne angeben zu müssen, in welche Zelle dieses Label jedes Mal eingefügt wird. Wie soll ich das programmieren?

Ich bin nicht wirklich sicher, ob meine Erklärung verständlich ist, also bitte bitte mit mir. Vielen Dank.

Answer 1

Wenn Sie die Namen der Steuerelemente wollen versuchen Sie dies:

Dim c As Control 
For Each c In UserForm1.Controls 
    i = i + 1 
    Worksheets("Sheet1").Range("A" & i).Value = c.Name 
Next 

EDIT: Für Etiketten Bildunterschriften.

Dim c As Control 
For Each c In UserForm1.Controls 
    If TypeName(c) = "Label" Then 
    i = i + 1 
    Worksheets("Sheet1").Range("A" & i).Value = c.Caption 
    End If 
Next