Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige