Steuerelemente in Frame zurücksetzen
07.05.2019 21:46:37
Lisa
in einer Userform habe ich mehrere Frames.
Nun möchte ich gezielt in den Frame "frmArt" und "frmBes" die Steuerelemnte leeren
Leider funktioniert es nicht.
Bin für jede Unterstützung dankbar.
Gruß, Lisa
Private Sub cmdFrmClear_Click()
Dim cb As Object
Dim arr() As Variant
Dim T1
arr = Array("frmArt", "frmBes")
For Each T1 In arr
With cb.Controls(T1)
Select Case TypeName(cb)
Case "TextBox"
cb.Value = ""
Case "ComboBox"
cb.Listindex = -1
Case "Image"
cb.Picture = LoadPicture("")
End Select
End With
Next
End Sub
Anzeige