Finde "xxx", aber erst ab Zeile 7

Forumthread: Finde "xxx", aber erst ab Zeile 7
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Finde "xxx", aber erst ab Zeile 7

Finde "xxx", aber erst ab Zeile 7

05.11.2005 19:47:21

Lena

Hallo
Vielen Dank im voraus für Eure Hilfe.
Beste Grüße von Lena

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Habe gefunden.

ransi
AW: Habe gefunden.

05.11.2005 20:02:39

Lena
AW: @ransi

05.11.2005 20:18:02

HansH
@hans

ransi
AW: Finde "xxx", aber erst ab Zeile 7

05.11.2005 20:36:51

Hajo_Zi

Habe gefunden.

ransi

hallo lena
habe ich gefunden.
steht bei mir in Zeile 10.
Und nu...?
ransi

AW: Habe gefunden.

05.11.2005 20:02:39

Lena

Hallo Ransi,
verstehe nicht, wie du das meinst.
Beste Grüße von Lena

AW: @ransi

05.11.2005 20:18:02

HansH

Du bist gut, bei mir ist das ganze erst ab Zeile 13 zu finden.
Gruß
Hans

@hans

ransi

hallo hans
habe nocheinmal genau gesucht.
In zeile 27 und zeile 32 habe ich nocheinmal gefunden.
ransi

AW: Finde "xxx", aber erst ab Zeile 7

05.11.2005 20:36:51

Hajo_Zi

Hallo Lena,
man sollte die Frage nicht nur im Betreff schreiben und vielleicht aiuch ein wenig ausführlicher.


Sub Find()
'* H. Ziplies                                     *
'* 05.11.05                                       *
'* erstellt von Hajo.Ziplies@web.de               *
'* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> *
Dim Found As Range
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Range("C65536")), Range("C65536").End(xlUp).Row, 65536)
Set Found = Range("C7:C" & LoLetzte).Find("xxx", Range("C" & LoLetzte), , xlPart, , xlNext)
'   kompletter Vergleich und Inhalt
'    Set Found = .Range(.Cells(2, 10), .Cells(5753, 10)).Find(ActiveSheet.Cells(I, 54), _
'        .Cells(5753, 10), xlValues , xlWhole, , xlNext)
If Found Is Nothing Then Exit 

Sub  'falls nicht gefunden wird 

Sub verlassen
MsgBox Found.Address
End Sub