suchen und finden

Forumthread: suchen und finden

suchen und finden

08.08.2003 09:28:40

richard

morgen profis,
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: suchen und finden

08.08.2003 09:44:14

Andi_H
AW: suchen und finden

08.08.2003 10:54:18

richi
lass hirn regnen

08.08.2003 11:13:42

richard

AW: suchen und finden

08.08.2003 09:44:14

Andi_H

hi richi,
versuchs mal so:


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"
' so wie ich des gesehen habe steht der Suchbegriff ib Gerüst in Spalte 17,
' ansonsten  Spalte anpassen
On Error Resume Next
dim zielreihe as integer
for x = 1 to Sheets("Gerüst").cells(65000,17).end(xlup).row
if sheets("Gerüst").cells(x,17).value = Suchbegriff then
zielreihe = x
exit for
end if
next x
msgbox zielreihe
Next f
End Sub

Habe den Code nicht getestet, sollte aber gehen.
Gruß
Andi

AW: suchen und finden

08.08.2003 10:54:18

richi

hi andi,
irgendwie funktioniert dein beispiel auch nicht
bei zielreihe = x gibt er mir immer nur ne null aus.
irgendwie bekommt er nicht die information der richtigen zeile.
wenn du noch ne idee hast...... her damit ;-)
mfg richi

lass hirn regnen

08.08.2003 11:13:42

richard

manchmal könnte ich mich in den ar... beißen, ich habe das blatt umbenannt und er hat als auf nem leeren blatt gesucht *grmpf*
funktioniert natürlich
danke schön...
mfg richi

Beliebteste Forumthreads (12 Monate)

Forumthread: suchen und finden

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread