Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ecxel Userform - For Each Problem

Forumthread: Ecxel Userform - For Each Problem

Ecxel Userform - For Each Problem
19.01.2005 11:00:08
Dennis
Hallo wer kann mir sagen, wie ich folgendes umsetzten kann, das ist jetzt nur
Pseudocode:
Dim Button As CommandButton

For Each Button In Application
.BackColor = RGB(200, 230, 255)
Next
Da ich relativ viele Buttons in meiner Userform habe, gibt es doch bestimmt die Möglichkeit
das alles in einer Schleife zu machen.
Zumindest hab ich sowas schonmal irgendwo gesehen, kann es aber nicht finden.
Die ganzen Buttons einzelnt aufzuzählen und einzelnt zu ändern wäre nicht nur mühsam sonder auch viel zu viel Quellcode.
Bin für jede Hilfe dankbar.
MfG,
Dennis
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ecxel Userform - For Each Problem
19.01.2005 11:03:49
Josef
Hallo Dennis!
Das geht zB. so:

Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.CommandButton Then
ctrl.Object.BackColor = RGB(200, 230, 255)
End If
Next

Gruß Sepp
AW: Ecxel Userform - For Each Problem
Dennis
Super danke für die schnelle Antwort.
Jetzt hab ich das gleiche Problem mit den Labels, habs so versucht, aber die gibt es nicht
Dim lbl As Label
For Each lbl In Me.?
'Die Controls Bibliothek ist es nicht, da gibt es dann ein Laufzeitfehler
'wegen den Typen
If TypeOf lbl Is MSForms.Label Then
lbl.BackColor = RGB(200, 230, 255)
End If
Next
Anzeige
AW: Ecxel Userform - For Each Problem
Dennis
Habs gelöst,
Für Labels
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.Label Then
ctrl.BackColor = RGB(200, 230, 255)
End If
Next
Label ist kein Objekt der Bibliothek MSForms
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige