suchen und finden
08.08.2003 09:28:40
richard
habe mir folgende prozedur gebastelt
Sub Suchen()
Dim Suchbegriff As String
i = Worksheets("Rohdaten").Range("A65536").End(xlUp).Row
MsgBox prompt:=i, Title:="i"
For f = 2 To i
Suchbegriff = Worksheets("Rohdaten").Range("R" & f)
MsgBox prompt:=f, Title:="F"
MsgBox prompt:=Suchbegriff, Title:="Suchbegriff"
On Error Resume Next
Sheets("Gerüst").Activate
zeile = Cells.Find(What:=Suchbegriff, After:=Range("Q1"), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Row
MsgBox prompt:=zeile, Title:="zeile"
Next f
End Sub
(die msgboxen sind nur für testzwecke)
diese prozedur soll folgendes machen.
überprüfen wieviele zeilen in blatt rohdaten belegt sind. anschließend wird in diesem blatt ab zeile 2 in spalte r ein suchbegriff eingelesen. dieser soll auf blatt gerüst wiedergefunden werden und mir von der gefundenen zelle die zeile ausgeben, und genau das letzte macht er nicht
aber warum
vielen dank für hilfe
mfg richi