find / findNext
01.08.2002 19:17:19
Rainer
mein Problem: ich möchte in Spalte B, die zweite (die erste ist die Spatenüberschrift), n i c h t leere Zelle finden. Egal wie ich das Makro ändere, komme ich nicht zu dem gewünschten Ergebnis.
Rainer
With Worksheets(1).Range(B1:B6500)
Set zelle=.Find("",LookIn:=xlValues
if Not zelle is Noting Then
ersteAdresse=zelle.Address
zelle.Select
set zelle= .FindNext(zelle)
end if
End With