.Find()
23.06.2005 17:05:25
Markus
Ich wollte nicht immer Schleifen laufen lassen, damit mein Makro schneller wird.
aber jetzt geht das nicht. Was mache ich falsch?
Vielleicht kann mir jemand helfen
Sub sucheneintrag()
Dim ref As Double
Dim bereich As Range
Dim suchfeld As Range
Set bereich = ActiveWorkbook.Sheets("BaKoBrAnSp").Range("a2:a2000")
ref = bereich.Cells(30, 1)
Set suchfeld = bereich.Find(ref, LookIn:=xlValues)
If Not suchfeld Is Nothing Then
MsgBox suchfeld.Address
End If
End Sub
Gruss Markus