ich habe gerade Probleme beim Arbeiten mit einer Listbox. Ich habe eine Tabelle mit veschiedenen Einträgen und zeige von dieser Tabelle 2 Spalten in einer Listbox an:
Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 2
.ColumnWidths = "2cm;2cm"
.ColumnHeads = True
ListBox1.RowSource = "Historie!B4:C10"
'oder:
'ListBox1.RowSource = "Tabelle1!A2:F" & loletzte
End With
End Sub
Nun möchte ich eine Befehlsschaltfläche löschen einfügen wo der selektierte Eintrag der Listbox !und! die dazugehörige zeile in der Tabelle gelöscht wird.Dazu habe ich folgenden Code bereits probiert:
Private Sub CommandButton2_Click()
Dim idx As Integer
idx = ListBox1.ListIndex
ListBox1.RemoveItem idx
End Sub
bekomme aber eine Fehlermeldung!VG Peter