Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Steuerelemente in Frame zurücksetzen

Steuerelemente in Frame zurücksetzen
07.05.2019 21:46:37
Lisa
Guten Abend,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Steuerelemente in Frame zurücksetzen
07.05.2019 22:25:31
Matthias
Moin!
An deinem Code kann ich nicht erkennen, woher cb kommt bzw. was es sein soll. Ansonsten musst du die controls vom frame (eigene Collection) aufrufen und durchgehen. So sollte es gehen.
Private Sub CommandButton2_Click()
Dim cb As Object
Dim arr() As Variant
Dim T1
arr = Array("frmArt", "frmBes")
For Each T1 In arr
With Me.Controls(T1)
For Each cb In Me.Controls(T1).Controls
Select Case TypeName(cb)
Case "TextBox"
cb.Value = ""
Case "ComboBox"
cb.ListIndex = -1
Case "Image"
cb.Picture = LoadPicture("")
End Select
Next
End With
Next
End Sub

VG
Anzeige
AW: Steuerelemente in Frame zurücksetzen
07.05.2019 22:33:35
Lisa
Hallo Matthias,
Dein Code funkioniert genauso wie ich es wollte.
Ursprüngluch habe ich schon cb verwandt
For Each cb In Me.Controls(T1)
jedoch habe ich das ".Controls" nicht gewußt.
Danke!
Gruß, Lisa

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige