Find - Problem
15.02.2007 21:06:00
Sophie
ist es normal, wenn ich mit der Find-Methode arbeite, daß diese die erste Zeile nicht beachtet und erst zum Schluß findet?
Da ich dieses Problem habe habe ich es umständlich gelöst wie folgt:
Set wksAusw = wbAusw.Worksheets("Tabelle1")
'Zeilennummern auslesen
b = 1
ReDim Preserve Zeilennummer(b)
Zeilennummer(1) = 1
With wksAusw.Range("A2:A" & wksAusw.Range("A65536").End(xlUp).Row)
'Zeilennummmern der ausgewählten Merkmale auslesen
Set Zelle = .Find(what:="First", LookIn:=xlValues, lookat:=xlWhole)
If Not Zelle Is Nothing Then
firstaddress = Zelle.Address
Do
b = b + 1
ReDim Preserve Zeilennummer(b)
Zeilennummer(b) = Zelle.Row
Set Zelle = .FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address firstaddress
End If
End With
Habe zuerst den Rangebereich auf A1:A... gelegt, dann hat es mir die erste Zeile übersprungen und erst zum Schluß gefunden. Gibt es eine Möglichkeit die Find - Methode so einzustellen, daß es mir auch die erste Zeile gleich findet?
Schönen Gruß
und Danke für Eure Hilfe
Sophie