Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
264to268
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
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Buttons nach Berechnung einfärben?

Buttons nach Berechnung einfärben?
05.06.2003 13:09:45
Moritz
Hallo,

per Mausklick werden die untenstehenden Werte in die jeweiligen Zellen auf allen Blättern eingetragen. Danach möchte ich die Buttons einfärben. Auch auf allen Blättern gleich. Da gibt's noch ein Definitionsproblem. Welche Definition muß vor die Buttons, damit sie zugeordnet/erkannt werden können? Über Hilfe wäre ich sehr dankbar. Gruß, M.

Sub btn01503750_Click()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Range("F4") = "150"
wks.Range("F11") = "3"
wks.Range("F12") = "750"
.btn1503750.BackColor = RGB(204, 255, 255)
.btn1503750.ForeColor = RGB(128, 0, 128)
.btn1505775.BackColor = RGB(221, 221, 221)
.btn1505775.ForeColor = RGB(0, 0, 255)
.btn2753850.BackColor = RGB(221, 221, 221)
.btn2753850.ForeColor = RGB(0, 0, 255)
.btn2755900.BackColor = RGB(221, 221, 221)
.btn2755900.ForeColor = RGB(0, 0, 255)
.btn35031150.BackColor = RGB(221, 221, 221)
.btn35031150.ForeColor = RGB(0, 0, 255)
.btn35051200.BackColor = RGB(221, 221, 221)
.btn35051200.ForeColor = RGB(0, 0, 255)
Next wks
End Sub

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

Betreff
Datum
Anwender
Anzeige
Re: Buttons nach Berechnung ei
05.06.2003 13:42:03
Marco Jonas

Der Name des Forms oder nicht?



Re: Buttons nach Berechnung ei
05.06.2003 14:44:04
Moritz

Der Name des Forms ist btn1503750, btn1505775, etc. - also schon berücksichtigt. Gruß, M.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige