Frage zu Range.Find
01.04.2020 14:14:12
Barbara
Frage zu Range.Find
B3:B6="abc"
In folgendem Beispiel suche ich nach der nächsten freien Zelle nach einer bestimmten Zelle innerhalb Spalte B.
Warum ist das Ergebnis c nicht B15, sondern B1?
Sub Finden()
Dim a, b, c
With ActiveSheet
.Columns("B").Clear
.Range("B3:B6").Value = "abc"
a = .Columns("B").Find(What:="", After:=Range("B3")).Address
'a="$B$7" ist OK
b = .Columns("B").Find(What:="", After:=Range("B8")).Address
'b="$B$9" ist OK
c = .Columns("B").Find(What:="", After:=Range("B14")).Address
'c="$B$1" Warum nicht B15 ?
End With
End Sub
LG