Find Methode VBA - rückwärts nutzen?

[Taran Juhlke]

Hallo,

ich arbeite in VBA mit der find Methode, was auch wunderbar klappt.

Nun möchte ich aber gerne einen Bereich einklammern, in dem in einer
Zelle ein bestimmter Wert steht.

Also Beispielsweise in Spalte 2 steht der Wert "Schule 15" ab Zeile 500
und steht dann bis Zeile 1230...

Nun würde ich gerne über find die Zeile 500 finden, was ja auch
klappt, aber gerne mit einer Rückwärtstsuche, also beginnend ab der
letzten gefüllten Zeile, die 1230 finden, womit ich meinen Bereich von
500-1230 hätte...

Kann man die find Methode rückwärts nutzen?

Z.B. indem ich nicht den Bereich mit
With Worksheets(Tabelle1).Range("AE2:AE" & ende)
Set anfang = .Find(what:=varaible, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False)
End With
begrenze,

sondern mit
With Worksheets(Tabelle1).Range("AE" & ende & ":AE" & anfang)
Set anfang = .Find(what:=variable, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False)
End With

Dann würde er mir ja die erste Zelle nenne, in der rückwärts
gesehen, Schule 15 steht...

Oder klappt das nicht?

Wie kann ich es sonst machen?

Gruß
Taran

[Melanie Breden]

Hallo Taran,

Post by Taran Juhlke
Kann man die find Methode rückwärts nutzen?
Z.B. indem ich nicht den Bereich mit
With Worksheets(Tabelle1).Range("AE2:AE" & ende)
Set anfang = .Find(what:=varaible, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False)
End With

setze dazu einfach den 'SearchDirection'-Parameter auf:

SearchDirection:=xlPrevious


Mit freundlichen Grüssen
Melanie Breden