Private Sub ListBox1_Change()
Dim i As Integer
Dim rng As Range
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 20 To iRowL
If Cells(iRow, 1).Value = ListBox1.List(ListBox1.ListIndex) Then
If ListBox1.Selected(ListBox1.ListIndex) Then
Set rng = Rows(iRow & ":" & iRow + 7)
rng.Select
Else
Cells(iRow, 1).Select
End If
End If
Next iRow
End Sub
wenn ich nun ein item mit einem häckchen versehe wird der bereich selectiert und wenn ich es wieder weg mache nur die erste zelle.
jetzt das prob:
wenn ich 2 items markiere sollen auch beide bereiche selektiert sein und nicht nur der bereich des neu selectierten items. wenn ich nun dem 2. item das häckchen entferne soll auch nur wieder dessen bereuch unselected werden.
gruß louis