Hallo zusammen,
ich möchte gerne eine bestimmte Zeile in Excel löschen, und dies über einen Button bestätigen.
Irgendwie schaffe ich es aber nicht den Code umzuschreiben.
Die Zeile die gelöscht werden soll, soll in eine vorhandene TextBox in einer Userform eingetragen werden.
Option Explicit
Private Sub CommandButton2_Click()
Worksheets("Personen").Activate
ActiveSheet.Unprotect Password:="Los123"
Dim Suchergebnis As Range
With Worksheets("Personen")
Set Suchergebnis = .Cells.Find(TextBox2, LookIn:=xlValues, lookat:=xlWhole)
If Not Suchergebnis Is Nothing Then
.Rows(Suchergebnis.Row).Delete
Else
MsgBox "Eintrag nicht vorhanden"
End If
End With
End Sub
Wünschenswert wäre hier noch, wenn vor dem löschen nochmal eine Abfrage kommt, ob man diese Zeile wirklich löschen möchte!
Vielen Dank für eure Hilfe.
Lg Max
|