Ich kriegs nicht hin.
Ich Befülle eine ListBox mit Daten aus einer Tabelle.
Über mehrere Comboboxen fülle ich Daten mittels CommandButton in die Tabelle und lade dann die Daten aus der Tabelle wieder in die ListBox. Beim Erstellen eines Eintrags wird in der Ersten Spalte ein Index generiert.
Code zum Befüllen der Tabelle:
Private Sub CommandButton1_Click() Dim z As Long Dim y As Long Dim x As String Dim w As Long With ThisWorkbook.Sheets("ListBoxDaten") z = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 y = .UsedRange.SpecialCells(xlCellTypeLastCell).Row x = .Cells(y, 1) If z Jetzt möchte ich jedoch über die ListBox mehrere Einträge auswählen können und mittels ComandButton aus der Tabelle löschen.
Danach würde ich die ListBox mittels
ListBox1.List = Sheets("ListBoxDaten").Range("Tabelle4").Value
wieder füllen.
Dafür habe ich auch extra die Spalte Index in der Tabelle erstellt, welche fortlaufend Nummeriert.
Nur kriege ich den Code nicht auf die Reihe. Bin ja auch wirklich Anfänger.
Habe es so versucht:
Private Sub CommandButton2_Click()
Dim i As String
Dim Listbox As Long
With ListBox1
i = This.Workbook.Sheets("ListBoxDaten").UsedRange.SpecialCells(xlCellTypeLastCell).Row( _
"Index")
Listbox = .ListIndex(.Column(1))
If Listbox = i Then Tabelle4.Row(i).Delete
ListBox1.Items.Remove (ListBox1.SelectedItem)
End With
End Sub
Jedoch findet er Tabelle4.Row(i) nicht.Bin wohl voll auf dem Holzweg. Hoffe es kann mir jemanden einen Tipp geben?
Besten Dank
Liebe Grüsse
Bruno