Hallo zusammen,
ich habe ein kleines Problem. Beim Klick auf einen Entfernen Commandbutton soll ein bestimmter Wert "X" aus einer Listbox aber auch aus der Tabelle entfernt werden. Aus der Listbox wird er auch entfernt aber er meckert dann bei Tabelle5.cells ... . Ich weiß leider nicht wie ich ihm sagen soll das er in der Exceltabelle nach dem "X" suchen soll und das dann entfernen soll.
Ich habs versucht mit dem Listindex aber es geht wohl nur mit Zeilen und Spaltenangabe.
Kann jemand helfen?
Private Sub cmdEntf1_Click()
Dim Bereich1 As Range
Set Bereich1 = Tabelle5.Columns(3).Find(What:=ListBox1.ListIndex, After:=Range("C1"), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)
If Bereich1 Is Nothing Then
ListBox1.RemoveItem (ListBox1.ListIndex)
-> -> -> Tabelle5.Cells (Listbox1.Listindex).RemoveContents <- <- <-
Else
MsgBox "Diesen Wert gibt es nicht"
End If
End Sub
|