Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

statt Zelle ganze Zeile markieren

statt Zelle ganze Zeile markieren
18.12.2003 02:10:12
Annette
Da mir schon einmal so super geholfen wurde noch eine Bitte:
Könnte mir jemand das folgende Suchmakro so anpassen, daß nicht nur die einzelne Zelle, sondern die ganze Zeile markiert wird, in der der Suchbegriff gefunden wurde?

Vielen Dank schon mal im Voraus

Annette


Sub MultiSeek()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String, BlaNa As String
sFind = InputBox("Bitte Suchbegriff eingeben:")
If sFind = "" Then Exit Sub
BlaNa = ActiveSheet.Name
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlPart, _
LookIn:=xlValues)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox( _
prompt:="Weiter", _
Buttons:=vbYesNo + vbQuestion _
) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
Sheets(BlaNa).Select
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: statt Zelle ganze Zeile markieren
18.12.2003 02:35:24
Nike
Hi,
sauberer Code, wo hast du den gefunden?

Versuchs mal so:


Sub MultiSeek()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String, BlaNa As String
sFind = InputBox("Bitte Suchbegriff eingeben:")
If sFind = "" Then Exit Sub
BlaNa = ActiveSheet.Name
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlPart, _
LookIn:=xlValues)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
Rows(rng.Row).Select
If MsgBox( _
prompt:="Weiter", _
Buttons:=vbYesNo + vbQuestion _
) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
Rows(rng.Row).Select
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
Sheets(BlaNa).Select
End Sub


Bye

Nike
Anzeige
AW: statt Zelle ganze Zeile markieren
18.12.2003 11:00:41
Annette
Hallo Nike

Den Code hab ich hier im Forum bekommen, ich glaube WernerB war's:-)

Vielen Dank für die Hilfe. Das Markieren der Zeile funktioniert jetzt gut, aber dafür hab ich ein neues Problem: bei manchen Suchanfragen hängt das Makro sich an einer Zeile auf, es wird weder weitergesucht noch die Suche beendet. Mit der alten Version war das nicht so, da wurden -soweit ich das überprüfen konnte-wirklich alle Einträge gefunden. Hast Du eine Idee, woran das liegen könnte?

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige