Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nachfolgende Zeilen löschen

Forumthread: nachfolgende Zeilen löschen

nachfolgende Zeilen löschen
26.11.2006 07:26:28
klaus
hallo zusammen!
kann mir jemand helfen:
ich gestalte eine tabelle über ein makro, dessen letzter befehl das suchen nach einem wort (hier "gesamt") ist und der auch gefunden wird.
ich möchte nun alle folgenden zeilen (inclusive der, in der das gesuchte wort steht) löschen bzw deren Inhalt soll gelöscht werden.
beispiel, das gesuchte wort ist nach ablauf des makros in B299, nun sollen alle zeilen ab Ziele 299 gelöscht werden. Das gesuchte wort ist aber nicht immmer in B299 sondern kann bei einem Durchlauf mit anderen werten in C525 stehen.
ich brauche also einen befehl, der mir die zeilen in abhängingkeit der zuletzt gefunden zelle liefert und deren Inhalt dann löscht.
ich hoffe man versteht mich
gruß
klaus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: nachfolgende Zeilen löschen
26.11.2006 09:53:22
WernerB.
Hallo Klaus,
wie gefällt Dir das:

Sub Klaus()
Dim SuBe As Range, _
s As String
s = "gesamt"
Set SuBe = Cells.Find(What:=s, After:=Range("A1"), LookAt:=xlPart)
If Not SuBe Is Nothing Then
Range("A" & SuBe.Row & ":IV" & Rows.Count).ClearContents
Set SuBe = Nothing
Else
MsgBox "Suchbegriff '" & s & "' nicht gefunden !", 64, _
"Dezenter Hinweis für " & Application.UserName & ":"
End If
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: nachfolgende Zeilen löschen
26.11.2006 14:18:44
klaus
danke, das wars was ich gesucht habe, es funktioniert
gruß
klaus
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige