Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Suche Teilstring und lösche komplette Zeile

Suche Teilstring und lösche komplette Zeile
17.08.2005 16:01:14
fuely
Hallo Zusammen,
ich möchte in einer Spalte nach einem Teilstring suchen und bei Fund diese Zeile komplett aus der Tabelle löschen.
Hat jemand eine Idee?
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Suche Teilstring und lösche komplette Zeile
17.08.2005 16:21:49
IngGi
Hallo fuely,
dieses Makro sucht "DeinTeilstring" in Spalte A und löscht an der ersten Fundstelle (und nur dort) die ganze Zeile.

Sub loeschen()
Dim rng As Range
Set rng = ActiveSheet.Range("A:A").Find(what:="DeinTeilstring", lookat:=xlPart)
If Not rng Is Nothing Then
rng.EntireRow.Delete
End If
End Sub
Dieses Makro löscht alle Zeilen, bei denen der Teilstring in Spalte A gefunden wird, komplett.

Sub loeschen()
Dim rng As Range
Set rng = ActiveSheet.Range("A:A").Find(what:="DeinTeilstring", lookat:=xlPart)
If Not rng Is Nothing Then
rng.EntireRow.Delete
Do
Set rng = ActiveSheet.Range("A:A").FindNext
If Not rng Is Nothing Then
rng.EntireRow.Delete
End If
Loop Until rng Is Nothing
End If
End Sub
Gruß Ingolf
Anzeige
AW: Suche Teilstring und lösche komplette Zeile
17.08.2005 19:01:47
fuely
Super IngGI!
Es hat funktioniert.
Ich beschäftige mich heute zum ersten Mal mit VBA und muß sagen, es macht viel Spaß wenn man erste Erfolge erzielt.
Ich habe mir für eine flexible Zeichenfolge noch ein Eingabefeld in Deine Vorlage gebaut, damit ist es perfekt.
Dim TargetText As String
Dim rng As Range
TargetText = InputBox$("Texteingabe:", "Lösche Zeilen")
Set rng = ActiveSheet.Range("E:F").Find(what:=TargetText, lookat:=xlPart)
If Not rng Is Nothing Then
rng.EntireRow.Delete
Do
Set rng = ActiveSheet.Range("E:F").FindNext
If Not rng Is Nothing Then
rng.EntireRow.Delete
End If
Loop Until rng Is Nothing
End If
End Sub
Nochmals DANKE!
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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