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