Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
180to184
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
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

bestimmte zellen kopieren und einfügen

bestimmte zellen kopieren und einfügen
20.11.2002 02:31:23
Toni
Hi Leute schlag mich seit einer weile mit einem prob herum.

ich habe einen bereich A8:Q15 den möchte ich kopieren und dann soll er im gleichen arbeitsblatt 8 zeilen unter letzten eintrag in Spalte A eingefügt werden, der eine rote schrift hat.
Bsp.:
In Spalte A steht in zelle A21 (rote schriftfarbe) User1 und in zelle A29 (rot) User2, dann soll 8 zeilen unter User 2 der bereich eingefügt werden.

Ich hoffe ihr habt eine vorschlag

gruß toni

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: bestimmte zellen kopieren und einfügen
20.11.2002 08:46:55
Chris
For i = [A65536].End(xlUp).Row To 1 Step -1
If Cells(i, 1).Font.ColorIndex = 3 Then Exit For
Next i
Range("A8:Q15").Select
Selection.Copy
Range("A" & (i + 8)).Select
ActiveSheet.Paste
Range("A1").Select


Gruss
Chris

Re: bestimmte zellen kopieren und einfügen
20.11.2002 12:24:59
toni
danke funkioniert super
Re: bestimmte zellen kopieren und einfügen
20.11.2002 13:18:45
hätte noch ne frage
hätte noch ne frage und zwar ist es möglich, dass dort, wo der bereich eingefügt wird wie 4. zeile unter dem letzten feld nit dem roten namen 8 pixel breit wird

DANKE

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige