ausgewählten Eintrag aus Listbox entfernen
10.11.2004 19:24:01
Herbert
Ich habe eine Tabelle, in der ich per Doppelklick Zeilen ausblende. Die ausgewählten Zeilen lasse ich später über eine Listbox anzeigen, um einzelne Zeilen wieder einzublenden. Funktioniert auch - aber:
Die ausgewählten Zeilen bleiben in in der Listbox - Ich möchte aber, daß beim Listbox_Click die entsprechede Zeile wieder eingeblendet wird und der Eintrag gleichzeitig aus der Box gelöscht wird. Habe auch schon versucht, den Code auf einen Commandbutton zu legen, aber wenn ich die Eigenschaft der Listbox auf Multiselect setzte (nur dann macht´s Sinn), funzt es nicht mehr und dann sind meine VBA-Kenntnisse am Ende.
Vieleicht kann mir jemand einen Rat geben
Gruß Herbert
Private Sub ListBox1_Click()
Dim iRow As Integer, iRowL As Integer
iRowL = 36
For iRow = 1 To iRowL
If Cells(iRow, 1).Value = ListBox1.Value Then
Rows(iRow).Hidden = False
End If
Next iRow
End Sub
Private Sub UserForm_Initialize()
Dim xx, liste
ListBox1.Clear
For Each xx In Range("A1:A36")
If ActiveCell.EntireRow.Hidden = True Then
liste = ActiveCell.Value
ListBox1.AddItem liste
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next xx
End Sub