Thema Datum  Von Nutzer Rating
Antwort
Rot Bestimmte Zeile löschen
 06.07.2021 11:12:43 Max
NotSolved
06.07.2021 12:20:03 Gast27245
NotSolved

Ansicht des Beitrags:
Von:
Max		 Datum:
06.07.2021 11:12:43		 Views:
970		 Rating:
     
Antwort:
  Ja
Thema:
Bestimmte Zeile löschen

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bestimmte Zeile löschen
 06.07.2021 11:12:43 Max
NotSolved
06.07.2021 12:20:03 Gast27245
NotSolved