folgende Makro listet alle Elemente eines UserForm - funktioniert soweit
wie kann ich zB das Element "lab4" löschen? Achtung: 2 Varianten gehen nicht!
Sub SU_UserForm_Elemente_auflisten1()
Dim j%, sTmp$, sNam$, Ctrl As MSForms.Control
For Each Ctrl In uMen.Controls '
sNam = Ctrl.Name
If LCase(sNam) = "lab4" Then
Ctrl.Delete 'geht nicht
uMen.Controls(sNam).Delete 'geht nicht
End If
sTmp = sTmp & Format(j, "00.) ") & Ctrl.Width & vbTab & Ctrl.Height & vbTab & sNam & Chr(10) _
' ";" für Array()
Next Ctrl
MsgBox sTmp
End Sub
vielen Dank für Eure Unterstützung
mfg
Pepi