Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Zeile finden und löschen

Forumthread: Zeile finden und löschen

Zeile finden und löschen
24.10.2007 14:56:00
Johannes
Hi Leute,
ich bräuchte ein Makro, mit dem ich über eine inputbox einen begriff eingeben kann, der in einer Zelle auf einem anderen Tabellenblatt (aber in der gleichen Arbeitsmappe) steht (immer in Spalte A). Diesen Begriff soll das Makro dann suchen und die dazugehörige Zeile sowie die fünf darunterliegenden Zeilen löschen.
Hat jemand eine Lösung?
Vielen Dank und Gruß
Johannes

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zeile per Suchbegriff finden und löschen
24.10.2007 15:08:57
NoNet
Hallo Johannes,
das funktioniert mit folgendem Makro :
Sub SuchenUndLoeschen()
    Dim strBegriff As String
    Dim rngZelle As Range
    strBegriff = InputBox("Bitte Begriff eingeben")
    If strBegriff <> "" Then
        Set rngZelle = Sheets("Tabelle2").[A:A].Find(strBegriff, lookat:=xlWhole)
        If Not rngZelle Is Nothing Then rngZelle.Resize(6).EntireRow.Delete
    End If
End Sub

Den Namen "Tabelle2" musst Du entsprechend anpassen. Die Methode Resize(6) gibt an, dass insgesamt 6 Zeilen (die gefundene + die 5 nachfolgenden Zeilen) gelöscht werden.
Gruß, NoNet
Anzeige
AW: Zeile per Suchbegriff finden und löschen
24.10.2007 15:18:00
Johannes
Einwandfrei. Klappt alles.
Resize is cool!
Vielen Dank für die schnelle Hilfe. Klasse!
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum