pro

01/12/2007 - 11:46 von Markus Löw | Report spam
Dim OleObj As OLEObject
Set OleObj = Worksheets("Start").OLEObjects("cb_vds_Blumen")

'Worksheets("Start").Range("D39") = ButtonCaption
ButtonCaption = OleObj.Caption
ButtonCaption = (Left(ButtonCaption, (Len(ButtonCaption) - 1))) & _
(Right(ButtonCaption, 1) + 1)

Worksheets("Start").Range("D39") = ButtonCaption

Worksheets("Start").Range("D38") Worksheets("Start").cb_vds_Blumen.name

With Worksheets("Start").cb_vds_Blumen
.BackColor = &HFFC0C0
.BackColor = vbBlue
.ForeColor = vbBlack
.ForeColor = vbWhite
.Caption = ButtonCaption
End With
 

Lesen sie die antworten

#1 Markus Löw
01/12/2007 - 11:49 | Warnen spam
CLOSED

Ähnliche fragen