finden mit schleife

Forumthread: finden mit schleife

finden mit schleife

31.10.2006 23:38:30

Thomas

Hallo Exelfreunde,
in Spalte E2:E500 möchte ich den Text "Test" finden, wenn gefunden dann
Celle aktivieren und
ActiveCell.Offset(0, 5) = "0:3"
ActiveCell.Offset(0, 6) = "0:9 0:9 0:9"
ActiveCell.Offset(0, 4) = "x"
dann weitersuchen.
Kann mir bitte einer helfen.
Gruß Thomas

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: finden mit schleife

01.11.2006 00:27:07

Rainer
Danke Rainer funktioniert

01.11.2006 13:46:53

Thomas

AW: finden mit schleife

01.11.2006 00:27:07

Rainer

Hi,


Sub Finde()
Dim c As Range
With Worksheets("Tabelle1").Range("E2:E500")
Set c = .Find("Test", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Offset(0, 5).NumberFormat = "@"
c.Offset(0, 5) = "0:3"
c.Offset(0, 6) = "0:9 0:9 0:9"
c.Offset(0, 4) = "x"
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

Gruss Rainer

Danke Rainer funktioniert

01.11.2006 13:46:53

Thomas

Danke

Forumthread: finden mit schleife

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

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread