Code ergänzen zum Löschen

Sub Zeile_weg_wenn() Dim Suche As String Dim z As Long, lz As Long, i As Long Application.ScreenUpdating = False Suche = Application.InputBox("Suchbegriff eingeben!", "Suche", "Basis_122") z = ActiveSheet.UsedRange.Row lz = z + ActiveSheet.UsedRange.Rows.Count - 1 For i = lz To z Step -1 If Application.CountIf(Rows(i), Suche) > 0 Then Rows(i).Delete End If Next Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Cordula,
mit den folgenden Anpassungen wird nur in Spalte A gesucht und die Zellen in Spalte A entsprechend nach oben verschoben.
Falls du bei jeder einzelnen Fundstelle das Löschen bestätigen möchtest, dann muss die Sicherheitsabfrage innerhalb der If-Bedingung in der For-Next-Schleife eingebaut werden.
Guß
Franz


Sub Zeile_weg_wenn()
Dim Suche As String
Dim z As Long, lz As Long, i As Long
Application.ScreenUpdating = False
Suche = Application.InputBox("Suchbegriff eingeben!", "Suche", "Basis_122")
z = ActiveSheet.UsedRange.Row
lz = z + ActiveSheet.UsedRange.Rows.Count - 1
If MsgBox("Zellen mit Begriff in Spalte A: " & Suche & " wirklich löschen?", vbOKCancel, _
"Zellen mit Suchbegriff löschen") = vbOK Then
For i = lz To z Step -1
If Cells(i, 1) = Suche Then
Cells(i, 1).Delete shift:=xlShiftUp
End If
Next
End If
Application.ScreenUpdating = True
End Sub

Sub Zeile_weg_wenn() Dim Suche As Variant Dim z As Long, lz As Long, i As Long Application.ScreenUpdating = False Suche = Application.InputBox("Suchbegriff eingeben!", "Suche", "Basis_122") If Not Suche = False Then 'Abbrechen wurde nicht gewählt z = ActiveSheet.UsedRange.Row lz = z + ActiveSheet.UsedRange.Rows.Count - 1 If MsgBox("Zellen mit Begriff in Spalte A: " & Suche & " wirklich löschen?", vbOKCancel, _ "Zellen mit Suchbegriff löschen") = vbOK Then For i = lz To z Step -1 If Cells(i, 1) = Suche Then Cells(i, 1).Delete shift:=xlShiftUp End If Next End If End If Application.ScreenUpdating = True End Sub

Sub Zeile_weg_wenn() Dim Suche As String Dim Frage As String Dim z As Long, lz As Long, i As Long Application.ScreenUpdating = False Suche = Application.InputBox("Suchbegriff eingeben!", "Suche", "Basis_122") z = ActiveSheet.Range("A:A").Row lz = z + ActiveSheet.Range("A:A").Rows.Count - 1 For i = lz To z Step -1 If Application.CountIf(Rows(i), Suche) > 0 Then Frage = InputBox("Zeile wirklich löschen?", , "ja") If Frage "ja" Then Exit Sub Rows(i).Delete End If Next Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code ergänzen zum Löschen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread