Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Ausfiltern von Zeilen nach Suchkriterien

Betrifft: Ausfiltern von Zeilen nach Suchkriterien
von: Roland
Geschrieben am: 22.04.2003 - 13:03:13

Hallo Excel-Magier,

ich würde gerne ein Tabellenblatt per Macro filtern.
Hat jemand eine Idee, wie ich es hinkriegen könnte, dass eine Zeile entfernt wird, wenn Suchbegriff in irgendeiner Zelle gefunden wird.

Z.B.

_|A___|B________|
1|test1|aabebxyzdfg| -> soll entfernt werden
2|test2|aabebnixdfg|

Suchbegriff = xyz -> Zeile wird entfernt.
Und das für alle Zeilen und mehrere Suchbegriffe.
Die Suchbegriffe könnten in einer Datei, oder im Sheet selbst stehen.
Bin nicht sicher, ob das überhaupt möglich ist, aber vielleicht hat ja jemand eine Idee...










  

Re: Ausfiltern von Zeilen nach Suchkriterien
von: Florian Meyer
Geschrieben am: 22.04.2003 - 21:21:03

Hallo, Roland,

Probier das 'mal aus:

Sub Makro1()
Dim i, n
n = Worksheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = n To 1 Step -1
If InStr(1, Worksheets("Tabelle1").Cells(i, 1), "xyz", 1) > 0 Then
Rows(i).Delete
End If
Next i
End Sub

Dieser Code schaut sich nur die erste Spalte an ("Cells(i, 1)").

Für mehr hatte ich eben keine Zeit.

Gruß,

Florian

  

Re: Ausfiltern von Zeilen nach Suchkriterien
von: th.heinrich
Geschrieben am: 22.04.2003 - 23:07:58

hallo Roland,

folgender vorschlag. ueber eine inputbox kannst Du den suchbegriff eingeben.


Sub suchen_und_finden()
Dim wks As Worksheet
Dim rngFind As Range, rngRows As Range
Dim sFind As String, sSearch As String
sSearch = InputBox("Suchbegriff:")

Set rngFind = Cells.Find(what:=sSearch, lookat:=xlpart)


If rngRows Is Nothing Then
Set rngRows = rngFind
End If
If Not rngFind Is Nothing Then
sFind = rngFind.Address
Do
Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
Set rngFind = Cells.FindNext(After:=rngFind)
If rngFind.Address = sFind Then Exit Do
Loop
End If
rngRows.Select
End Sub

von Knut

gruss thomas

  

Re: Ausfiltern von Zeilen nach Suchkriterien
von: Roland
Geschrieben am: 23.04.2003 - 14:18:16

Ok,

Danke an euch im Voraus - ich werd's mal testen...

 

Beiträge aus den Excel-Beispielen zum Thema "Ausfiltern von Zeilen nach Suchkriterien"