kann mir sagen warum folgender Code so nicht funktionieren will:
Private Sub Combobox1_change ()
Dim i as Integer
for i = 22 to 36
if combobox1.value = Range("I26").value Then activesheet("Label" & i).caption =""
if combobox1.value = Range("I27").value Then activesheet("Label" & i).caption ="$"
if combobox1.value = Range("I28").value Then activesheet("Label" & i).caption ="CNY"
usw.
next
End Sub
Bei Auswahl der entsprechenden Währung aus der Combobox (ListFillRange = I26:I30)
sollen die Labels 22 bis 36 die entsprechende Abkürzung für die Währung enthalten...
Jemand ne Ahnung wieso "Das objekt diese Eigenschaft nicht unterstützt" ?
Gruß Daniel