Problem mit Zellbereich
21.04.2003 13:43:46
hansjoerg
erstaml allen noch ein frohes osterfest.
hab folgendes problem
suche nech einem begriff "ABC" darunter folgt eine leerzelle und darunter sind verschieden viele werte.
ich will nun den begriff "ABC" mit der darunterliegenden leerzelle und den darunterliegenden werten markieren.
komischerweise klappt das mit dem folgenden code nicht!
wo liegt das problem???
With Selection
.Find("ABC", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
End With
If Cells(ActiveCell.Row, ActiveCell.Column) <> "" Then
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.End(xlDown).Row, ActiveCell.Column)).Copy
Else
ActiveCell.Copy
End If
vielen dank fuer eure hilfe
mfg hansjoerg