Hallo
Warum funktioniert bei mir ListBox5_Click Effekt nicht?
Mit DblClick geht' s aber mit einfachem Click Effekt wird Macro nicht aktieviert, warum?
Private Sub ListBox5_Click()
Dim i, a As Integer
a = 2
MsgBox ("Stop")
For i = 0 To UsfServiceKPD.ListBox5.ListCount - 1
If UsfServiceKPD.ListBox5.Selected(i) = True Then
Do While Worksheets("Data2").Cells(a, 2) <> 0
If Worksheets("Data2").Cells(a, 2).Value = UsfServiceKPD.ListBox5.List(i, 1) Then
If Worksheets("Data2").Cells(a, 3).Value = UsfServiceKPD.ListBox5.List(i, 2) Then
Worksheets("Data2").Cells(a, 5).Value = "+"
End If
End If
a = a + 1
Loop
End If
a = 2
Next i
End Sub
Danke für die Hilfe. |