arrFind
05.03.2015 14:27:09
Gregor
Ich benutze folgende Code
With Range("Test")
Set rZelle = .Columns(1).Find(What:="Muster", LookAt:=xlPart, LookIn:=xlValues)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
n = 0
Do
n = n + 1
ReDim Preserve arrFind(1 To 4, 1 To n)
arrFind(1, n) = .Cells(rZelle.Row, 1)
arrFind(2, n) = .Cells(rZelle.Row, 2)
arrFind(3, n) = .Cells(rZelle.Row, 3)
arrFind(4, n) = .Cells(rZelle.Row, 4)
Set rZelle = .Columns(1).FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address sFundst
End With
With usrTest.lstFind
.ColumnCount = 4
.Column = arrFind
End With
"Test" ist ein Namensfeld. Wenn die Fundstelle zB. A71 ist, ist die rZelle.Row die 71 aber es übernimmt im arrFind die Angaben von Zeile 72 (und bei jedem Durchgang immer die Angaben aus der folgenden Zeile). Was ist die Erklärung oder was ist falsch?
Gruss Gregor