Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeile finden und löschen

Zeile finden und löschen
24.10.2007 12: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

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

Betreff
Datum
Anwender
Anzeige
Zeile per Suchbegriff finden und löschen
24.10.2007 13: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 13:18:00
Johannes
Einwandfrei. Klappt alles.
Resize is cool!
Vielen Dank für die schnelle Hilfe. Klasse!

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige