Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem mit Zellbereich

Problem mit Zellbereich
21.04.2003 13:43:46
hansjoerg
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Problem mit Zellbereich
21.04.2003 16:45:45
andre

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
21.04.2003 19:21:18
hansjoerg



Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige