Text in worksheet suchen

Forumthread: Text in worksheet suchen

04.10.2007 20:59:05

Erich

Hallo,
ich bin schon verzweifelt und würde mich über Hilfe freuen....
Folgendes Problem: Wie kann ich nicht nur in Reihe "C" nach dem Text (Saft) suchen sondern im ganzen Blatt? Irgendwie mit einem Offset für rows?
Die anderen Zeilen in denen das Wort "Saft" nicht vorkommt sollen dann ausgeblendet werden.


Sub cmdfilter_Click()
On Error Resume Next
Dim i, f As Integer
Sheets("Tabelle1").Activate
ActiveSheet.Unprotect = "Passwort"
Application.ScreenUpdating = False
Range("A1:Z200").Select
For i = Selection.Cells(Selection.Cells.Count).Row _
To Selection.Cells(1).Row Step -1
If Cells(i, "C").Value  "Saft" Then Rows(i).EntireRow.Hidden = True
Next i
Application.ScreenUpdating = True
End Sub

Grüße
der Erich

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Text in worksheet suchen

04.10.2007 21:08:17

Fred
AW: Text in worksheet suchen

04.10.2007 21:21:01

Hajo_Zi
AW: Text in worksheet suchen

04.10.2007 21:26:00

Josef
AW: Text in worksheet suchen

04.10.2007 22:42:36

Erich

AW: Text in worksheet suchen

04.10.2007 21:08:17

Fred

Hi,
verwende den Autofilter.
mfg fred

AW: Text in worksheet suchen

04.10.2007 21:21:01

Hajo_Zi

Hallo Erich,
benutze Find.


Sub test3()
'* H. Ziplies                                     *
'* 04.10.07                                       *
'* erstellt von Hajo.Ziplies@WEB.de               *
'* http://Hajo-Excel.de
'   erstellt von Hajo.Ziplies@web.de 04.10.07
Dim Found As Range
Dim sSearch As String
sSearch = InputBox("Suchbegriff:", , "test")
If sSearch = "" Then Exit Sub
Set Found = Cells.Find(sSearch, , , xlPart, , xlNext)
If Found Is Nothing Then Exit 

Sub  'falls nicht gefunden wird 

Sub verlassen
MsgBox Found.Address
End Sub

AW: Text in worksheet suchen

04.10.2007 21:26:00

Josef

Hallo Erich,
probier mal.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub SaftSuchen()
Dim rng As Range, rngU As Range
Dim strFirst As String
Dim vRows() As Long

Redim vRows(0)
vRows(0) = 0

Set rng = Cells.Find(what:="saft", LookAt:=xlWhole)

If Not rng Is Nothing Then
    strFirst = rng.Address

    Do

        If Not IsNumeric(Application.Match(rng.Row, vRows, 0)) Then

            Redim Preserve vRows(UBound(vRows) + 1)
            vRows(UBound(vRows)) = rng.Row

            If rngU Is Nothing Then
                Set rngU = rng.EntireRow
            Else
                Set rngU = Union(rngU, rng.EntireRow)
            End If

        End If

        Set rng = Cells.FindNext(rng)

    Loop While Not rng Is Nothing And strFirst <> rng.Address

End If

If Not rngU Is Nothing Then
    Rows.Hidden = True
    rngU.Rows.Hidden = False
    ActiveWindow.ScrollRow = 1
Else
    Rows.Hidden = False
End If

Set rng = Nothing
Set rngU = Nothing
End Sub

Gruß Sepp

AW: Text in worksheet suchen

04.10.2007 22:42:36

Erich

Vielen Dank....es funktioniert sehr optimal.
Grüße !!!

Beliebteste Forumthreads (12 Monate)

Forumthread: Text in worksheet suchen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread