Find Methode und nächster Datensatz

22/08/2007 - 11:08 von kortmann81 | Report spam
Hallo,
ich habe folgendes Problem:

Ich habe eine Suchfunktion geschrieben die mir die Zeile zurückgibt
(welches für eine andere Sub benötigt wird). Da jetzt aber ein Name,
z.B. Krüger in meinen Datenblatt mehrfach vorkommen kann, brauche ich
auch die nàchsten möglichen Datensàtze. Wie kann ich das mit findnext
oder àhnlichen umsetzen?
Jetzt wird die Reihe nur an maske_füllen2 übergeben. Die nàchste Reihe
soll dann an datensatz_next_click übergeben werden. Wenn ich im else
Block kein exit do angebe, làuft die Prozedur anscheinend bis zum
letzten gefundenen Datensatz. Es soll aber zuerst der erste ausgegeben
werden.

If Programm.Namen.Value = "" Then
Else
GeData = Programm.Namen.Value
Worksheets("Auswertung").Select
Set rngBereich = ActiveSheet.Cells
With rngBereich
Do
Set rngZelle = .Find(What:=GeData, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rngZelle Is Nothing Then
Exit Do

Else
datennum = rngZelle.Row
Maske_füllen2
Exit Do
End If
Loop
End With
End If


Vielen Dank für eure konstruktiven Vorschlàge.

Gruß Jan
 

Lesen sie die antworten

#1 Ralf Rösler
22/08/2007 - 21:38 | Warnen spam
Hallo,

Schau dir mal den Script an.

With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

Über FindNext bekommst du die anderen Krügers

Gruß Ralf

Ähnliche fragen