Eintrag aus LB in Sheet löschen
13.09.2022 07:28:54
Chris
ich möchte den ausgewählten Eintrag einer einspaltigen Listbox im Sheet "Benutzer", Spalte 1 suchen und dort die entsprechende Zeile löschen.
Dazu untenstehendes Makro, welches den Eintrag leider nicht löscht. Ich finde den Fehler nicht...
Schon mal danke
Gruß Chris
sub BenDel
On Error GoTo err
Dim rng As Range
Dim intX As Integer
With Me.ListBox1
Set rng = Worksheets("Benutzer").Columns(1).Find(.Column(0, .ListIndex))
If Not rng Is Nothing Then
intX = rng.Row
Sheets("Benutzer").Rows(intX).Delete
End If
End With
'Listbox neu laden
Call UserForm_Activate
err:
Exit Sub
End Sub