haben keine unselected befehl o.ä. gefunden
danke jan
danke jan
hilft es Dir weiter, wenn Du nur den Bereich auswählst, den Du benötigst?
Gruß
Peter
schau dir den code mal an
Private Sub ListBox1_Change()
Dim i As Integer, iRow As Integer
For iRow = 20 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(iRow, 1).Value = ListBox1.List(ListBox1.ListIndex) Then
If ListBox1.Selected(ListBox1.ListIndex) = True Then
If rng Is Nothing Then
Set rng = Range(iRow & ":" & iRow + 7)
Else
Set rng = Range(rng.Address(False, False) & "," & iRow & ":" & iRow + 7)
End If
rng.Select
Else
'hier soll der code hin der den bereich unselected dessen name kein häckchen hat
End If
End If
Next iRow
End Sub
so ganz klar ist mir nicht, was Du überhaupt willst. Bei jeder Änderng der Listbox einen anderen Bereich aus- bzw. abwählen? Ist da das Listbox Exit-Ereignis der einfachere Weg der Auswahl?
Gruß
Peter