Herbers CD 136401 / Suchbegriffe mit Zeile löschen

Hallo zusammen,

ich habe von Herbers CD den Code 136401:
Wie kann ich einen durch InputBox abzufragenden Suchbegriff
in einer Tabelle suchen und alle Fundzeilen auswählen lassen?
Den Code habe ich leicht abgeändert, da die Fundzeilen gelöscht
werden sollen.
Jetzt versuche ich schon ne Weile den Code soweit abzuändern,
dass der Suchbegriff nur in einer bestimmten Spalte gesucht wird
aber dann trotzdem wieder die ganze zeile gelöscht wird.


Sub A_MultiSelect()
Dim wks As Worksheet
Dim rngFind As Range, rngRows As Range
Dim sFind As String, sSearch As String
sSearch = InputBox("Suchbegriff:")  ', , "test")
Set rngFind = Cells.Find(sSearch)
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.Delete  'Select
End Sub

Code eingefügt mit: Excel Code Jeanie

Besten Dank für eine Hilfe!

mfg
Erich

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Erich

was soll "alle Fundzeilen auswählen lassen" bedeuten?? Welche Aktion soll im Anschluß gemacht werden.

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

Sub A_MultiSelect() Dim wks As Worksheet Dim rngFind As Range, rngRows As Range Dim sFind As String, sSearch As String Dim LoLetzte As Long LoLetzte = 65536 If Range("B65536") = "" Then LoLetzte = Range("B65536").End(xlUp).Row sSearch = InputBox("Suchbegriff:") ', , "test") Set rngFind = Range("B1:B" & LoLetzte).Find(sSearch) 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.Delete 'Select End Sub

Option Explicit Sub A_MultiSelect() Dim rngFind As Range, rngRows As Range, sFind As String, sSearch As String With Columns("B") Set rngFind = .Find(InputBox("Suchbegriff:")) ', , "test")) If Not rngFind Is Nothing Then sFind = rngFind.Address Do If Not rngRows Is Nothing Then Set rngRows = Application.Union(rngRows, Rows(rngFind.Row)) Else Set rngRows = Rows(rngFind.Row) Set rngFind = .FindNext(rngFind) Loop Until rngFind.Address = sFind Or rngFind Is Nothing End If End With If Not rngRows Is Nothing Then rngRows.Delete 'Select End Sub

Sub A_MultiSelect() Dim wks As Worksheet Dim rngFind As Range, rngRows As Range Dim sFind As String, sSearch As String sSearch = InputBox("Suchbegriff:") ', , "test") With Worksheets("Tabelle2").Columns(1) 'Spalten-Nummer Set rngFind = Cells.Find(sSearch) If rngRows Is Nothing Then Set rngRows = rngFind End If If rngFind Is Nothing Then Exit Sub 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.Delete 'Select End With End Sub

Beliebteste Forumthreads (12 Monate)

Herbers CD 136401 / Suchbegriffe mit Zeile löschen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread