100 Steuerelemente Datei extrem langsam

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
schwierig da jetzt was zu sagen ohne deine Datei zu kennen.
kommt halt darauf an, was es für Steuerlemente sind und ob sie sich in einer Userform auf einem Tabellenblatt befinden.
nur mal so als Ansatz:
- Optionbutton-Gruppen kann man durch List- oder Comboboxen ersetzen und hat dann pro Gruppe nur noch ein Steuerelement
- zusammengehörende Checkboxen kann man durch Multiselect-Listboxen ersetzen
- befinden sich viele Buttons auf einem Tabellenblatt, so kann man beispielweise einzelne Zellen zu Buttons umfunktionieren, in dem man einen entsprechenden Code in das Before-DoubleClick-Event der Tabelle schreibt. Dieses wird durch einen Doppleklick auf eine Zelle ausgelöst und man über TARGET abfragen, welche Zelle geklickt wurde und dann entsprechend im Code weiterverfahren.
mit der gleichen Methode kann man beispielsweise auch Zeilenbezogene Checkboxen in einer Tabelle ersetzen, in dem man bei Doppelklick auf die Zelle in dieser Zelle zwischen WAHR und FALSCH wechselt.
Gruß Daniel

Hallo,
vielen Dank für die Antwort.
Bei den Active X Steuerelementen handelt es sich um CommandButtons. Wenn man de CommandButton anklickt verändert er die Farbe und es wird ein JPG angezeigt. Klickt man den Button erneut setzt er die Farbe wieder zurück und das JPG verschwindet wieder.
Hilft das bei der Fragestellung weiter? Evtl. das mit den Zellen als Buttons...
Hier noch der Code eines Command Buttons:

Private Sub CommandButton1_Click()
Image1.Visible = Not Image1.Visible
If CommandButton1.BackColor = 969696 Then
CommandButton1.BackColor = 333333
Else
CommandButton1.BackColor = 969696
End If
End Sub



Private Sub CommandButton1_Click()

Image1.Visible = Not Image1.Visible

If CommandButton1.BackColor = 969696 Then

CommandButton1.BackColor = 333333

Else

CommandButton1.BackColor = 969696

End If

End Sub

Grüße und Danke
Martin

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim Bild As Object Select Case Target.Address(0, 0) Case "A1": Set Bild = Image1 Case "A2": Set Bild = Image2 Case "A3": Set Bild = Image3 Case Else: Set Bild = Nothing End Select If Not Bild Is Nothing Then Bild.Visible = Not Bild.Visible Target.Interior.Color = IIf(Bild.Visible, 969696, 333333) Cancel = True End If End Sub

Private Sub CommandButton1_Click() Image1.Visible = Not Image1.Visible 'Was muss in dieser Zeile dann stehen? _ If CommandButton1.BackColor = 969696 Then CommandButton1.BackColor = 333333 Else CommandButton1.BackColor = 969696 End If End Sub

Beliebteste Forumthreads (12 Monate)

100 Steuerelemente Datei extrem langsam

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

100 Steuerelemente Datei extrem langsam

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread