hallo brauch hilfe in excel vba?

... komplette Frage anzeigen

1 Antwort

Private Sub ComboBox1_Change()
   y = ""
   bc = &H8000000F
  
   z = ComboBox1.ListIndex
   If z > -1 Then
      y = Cells(9 + z, 2)
      If y < 110 Then bc = &HC000&
      If (y >= 110) And (y < 140) Then bc = &HFFFF&
      If y >= 140 Then bc = &HFF&
   End If
     
   Label1.Caption = y
   Image1.BackColor = bc
End Sub

Private Sub CommandButton1_Click()
   UserForm1.Hide
End Sub

Private Sub UserForm_Initialize()
   For t = 9 To 13
      ComboBox1.AddItem (Cells(t, 1))
   Next
End Sub

so?

Antwort bewerten Vielen Dank für Deine Bewertung

Was möchtest Du wissen?