Typen unverträglich

Forumthread: Typen unverträglich
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Typen unverträglich

Typen unverträglich

Jenick

Hallo zusammen,
ich erhalte immer die Meldung Typen unverträglich bei folgendem Code:


Dim myarray As Variant, i As Integer
myarray = Array(12, 21, 22, 23, 32, 34, 52, 54, 59)
Worksheets("Holland").OLEObjects("CommandButton" & myarray).Object.BackColor = &HC0C0C0
Worksheets("Holland").OLEObjects("CommandButton" & myarray).Object.ForeColor = &HC0&
Worksheets("Holland").OLEObjects("CommandButton" & myarray).Object.Caption = "Holland"

Was mache ich falsch?
LG, Jenick

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Typen unverträglich

Hajo_Zi
AW: Typen unverträglich

Rudi
Tapferes Schneiderlein : "9 auf einen Streich"

NoNet
AW: Tapferes Schneiderlein : "9 auf einen Streich"

Jenick

AW: Typen unverträglich

19.04.2010 16:04:30

Hajo_Zi

Hallo Jenick,
bei zusammenbauen des Namens benutzt Du dass gesamte Array, ich vermute aber Du möchtest nur ein Element verwenden.

AW: Typen unverträglich

19.04.2010 16:07:51

Rudi

Hallo,

Sub tt()
Dim myArray As Variant, i As Integer
myArray = Array(12, 21, 22, 23, 32, 34, 52, 54, 59)
For i = LBound(myArray) To UBound(myArray)
Worksheets("Holland").OLEObjects("CommandButton" & myArray(i)).Object.BackColor = &HC0C0C0
Worksheets("Holland").OLEObjects("CommandButton" & myArray(i)).Object.ForeColor = &HC0&
Worksheets("Holland").OLEObjects("CommandButton" & myArray(i)).Object.Caption = "Holland"
Next i
End Sub

Gruß
Rudi

Tapferes Schneiderlein : "9 auf einen Streich"

19.04.2010 16:10:38

NoNet

Hallo Jenick,
Du kannst doch nicht 9 Commandbuttons gleichzeitig formatieren !?!?!?
Solch einem "Typen" würde ich auch nicht trauen ;-) - daher die Meldung "Ungültiger Typ"
Im Ernst : Du musst jeden CommandButton einzeln formatieren und nicht per ARRAY auf einen Schlag, daher erscheint bei OLEObjects("CommandButton" & myarray) die Fehlermeldung "Ungültiger Typ.
Lösung : Erstelle eine Schleife über alle Elemente des Arrays und formatiere die CommandButtons somit :


For i = LBound(myarray) To UBound(myarray)
Worksheets("Holland").OLEObjects("CommandButton" & myarray(i)).Object.BackColor = & _
HC0C0C0
Worksheets("Holland").OLEObjects("CommandButton" & myarray(i)).Object.ForeColor = &HC0&
Worksheets("Holland").OLEObjects("CommandButton" & myarray(i)).Object.Caption = " _
Holland"
Next

Gruß,

AW: Tapferes Schneiderlein : "9 auf einen Streich"

19.04.2010 17:43:52

Jenick

Hallo an Euch drei,
vielen lieben Dank für die Beiträge!
Gruss, jenick

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!