Habe was neues ausprobiert, jetzt löscht er zwar, aber nicht den Datensatz den ich gewählt habe.
Private Sub CommandButton6_Click()
Dim a As Integer
Dim msg
Dim letzte_Zeile As Long
On Error GoTo Errorhandler
letzte_Zeile = Worksheets("Daten").Range("A65536").End(xlUp).Row
If Not rngID Is Nothing Then
a = rngID + 1
Else
a = Range(rngFind.Address).Row
End If
If MsgBox(" Datensatz wirklich löschen ?", vbYesNo) = vbNo Then
Exit Sub
Else
Range(Cells(a, "B"), Cells(a, "M")).Delete shift:=xlShiftUp
Cells(letzte_Zeile, "A").ClearContents
End If
ClearAll
UserForm_Initialize
ComboBox1.SetFocus
Exit Sub
Errorhandler:
MsgBox "Es wurde kein Datensatz zum Löschen ausgewählt!", vbOKOnly + vbCritical, "Datensatz löschen"
ComboBox1.SetFocus
End Sub
|