In ComboBox ausgewählten Begriff löschen
29.08.2019 18:58:51
Johannes
für ein Schulprojekt muss ich über eine Combobox Begriffe auswählen und den ausgewählten Begriff in der Tabelle "Übersicht" löschen. Füge ich die Begriffe über addItem in die Combobox ein, kann ich diese problemlos auswählen und mit klick auf den CommandButton1 in der Tabelle "Übersicht" löschen. Alles funktioniert hervorragend.
Nun das Problem:
Sobald ich die ComboBox1 automatisch mit Begriffen (ebenfalls aus der Tabelle Übersicht) fülle und auf meinen CommandButton1 klicke, werden alle Begriffe in der Tabelle "Übersicht" bis einschließlich zu dem in der ComboBox1 ausgewählten Begriff gelöscht.
Ich weiß einfach nicht mehr weiter.
UserForm_loeschen:
Private Sub CommandButton1_Click()
Call Tabelle2.loeschen
Unload UserForm_Loeschen
End Sub
Private Sub UserForm_Initialize()
Dim lngZeileMax As Long
lngZeileMax = Tabelle2.UsedRange.Rows.Count
With Me.ComboBox1
.RowSource = "Uebersicht!A2:A" & lngZeileMax
.Style = fmStyleDropDownList
.ListIndex =-1
.ListRows = 5
End With
End Sub
'In ComboBox1 ausgewaehlten Begriff loeschen
Sub loeschen()
Dim i
For i = Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
On Error Resume Next
If InStr(Tabelle2.Cells(i, 1).Value, UserForm_Loeschen.ComboBox1.Value) Then
Rows(i).ClearContents
End If
Next
End Sub
Ich hoffe ihr könnt mir helfen.
Gruß
Johannes