Ich würde gerne
Image1.BackColor dynamisch bei next i Image2.BackColor machen wie geht das ?
Ich habe Image(i).BackColor getestet aber leider geht das nicht
Gruß Basti
Private Sub ListView1_click()
Dim i As Long
Dim SubI As String
Dim Shapes As Variant
For i = 1 To 2
SubI = ListView1.SelectedItem.ListSubItems(i).Text
If SubI = "+" Then Shapes("Image" & i).BackColor = RGB(0, 100, 0)
If SubI = "-" Then Shapes("Image" & i).BackColor = RGB(139, 0, 0)
If SubI = "0" Then Shapes("Image" & i).BackColor = RGB(255, 255, 0)
If SubI = "" Then Shapes("Image" & i).BackColor = RGB(255, 255, 255)
Next i
End Sub
Gruß Basti
Private Sub ListView1_click()
Dim i As Long
Dim SubI As String
For i = 1 To 2
SubI = ListView1.SelectedItem.ListSubItems(i).Text
If SubI = "+" Then Controls("Image" & i).BackColor = RGB(0, 100, 0)
If SubI = "-" Then Controls("Image" & i).BackColor = RGB(139, 0, 0)
If SubI = "0" Then Controls("Image" & i).BackColor = RGB(255, 255, 0)
If SubI = "" Then Controls("Image" & i).BackColor = RGB(255, 255, 255)
Next i
End Sub