Werte über UF löschen
Heinz
I
ch gebe über TxtBoxen in einer UF Werte ein.
Die werden im Sheets Mitarbeiterblatt gespeichert.
Das funktioniert auch super.
Weiters habe ich eine Listbox wo mir Werte vom Sheets Mitarbeiterblatt angezeigt werden.
Nun möchte ich aber auch Einträge löschen,mit unteren Makro.
Bekomme hier den Fehler. "lZeile = Me.ListBox1.List(Me.ListBox1.ListIndex, 3)"
Mit der Fehlermeldung
Wo liegt bitte der Fehler?
Gruß
Heinz
Private Sub CommandButton7_Click()
Application.ScreenUpdating = False
Dim WkSh As Worksheet
Dim lZeile As Long
Dim iIndx As Integer
Set WkSh = Worksheets("Mitarbeiterblatt") 'Zuordnung der Adressen-Tabelle
WkSh.Unprotect Password:="vetro"
lZeile = Me.ListBox1.List(Me.ListBox1.ListIndex, 3)
If MsgBox("Wollen Sie den Eintrag """ & WkSh.Cells(lZeile, 1).Value & _
", " & WkSh.Cells(lZeile, 2).Value & """ wirklich löschen?", _
vbYesNo + vbQuestion, " Löschabfrage, nur zur Sicherheit.") = vbYes Then
WkSh.Rows(lZeile).Delete 'Shift:=xlUp
End If
For iIndx = 1 To 13
Controls("TextBox" & iIndx).Value = ""
Next iIndx
Me.ListBox1.Clear
Me.CommandButton6.Enabled = False
Me.CommandButton7.Enabled = False
Me.TextBox20.SetFocus
WkSh.Unprotect Password:="vetro"
Application.ScreenUpdating = True
End Sub
Anzeige