Microsoft Excel

Herbers Excel/VBA-Archiv

Problem mit Zellbereich

Betrifft: Problem mit Zellbereich
von: hansjoerg
Geschrieben am: 21.04.2003 - 13:43:46

hallo,
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

  

Re: Problem mit Zellbereich
von: andre
Geschrieben am: 21.04.2003 - 16:45:45

hallo hansjörg,
dein code funktioniert erst mal.
verbesserungen:
- bei if reicht activecell
markieren:
- dann machst du ein copy, zum markieren wäre es select
gruss andre


  

ok danke o.T
von: hansjoerg
Geschrieben am: 21.04.2003 - 19:21:18



 

Beiträge aus den Excel-Beispielen zum Thema "Problem mit Zellbereich"