Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
156to160
156to160
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen ausschneiden

Forumthread: Zeilen ausschneiden

Zeilen ausschneiden
09.09.2002 21:13:00
Rainer W

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

Betreff
Datum
Anwender
Anzeige
L.Vira bitte nochmal reinschauen
09.09.2002 21:49:09
Rainer W
der code den du mir gegeben hast schneidet leider nur die Zellinhalte und nicht die komplette row aus. so muss ich die leeren Zeilen immernoch von Hand löschen. Die Inhalte werden nicht in der Reihenfolge in das zweite Blatt eingefügt in der sie entnommen wurden. Werden neue Reihen kopiert werden die nicht angefügt sondern überschreiben die alten.

Warscheinlich habe ich mich schlecht ausgedrückt was ich erreichen möchte.

Rainer

Anzeige
Re: L.Vira bitte nochmal reinschauen
09.09.2002 22:43:06
L.Vira
heute keinen Bock mehr, morgen.
Na ja, doch noch...
09.09.2002 23:33:55
L.Vira
Option Explicit
Sub Füllfarbe_ausschneiden_und_zeile_weg()
Dim lZ&, z&, lS%, s%, z2&
lZ = [a65536].End(xlUp).Row
Application.ScreenUpdating = False
For z = lZ To 1 Step -1
For s = 256 To 1 Step -1
If Cells(z, s).Interior.ColorIndex = 3 Then 'Zellfarbe rot
z2 = z2 + 1
Rows(z).Copy Sheets("Tabelle2").Cells(z2, 1)
Rows(z).Delete
End If
Next s
Next z
Application.ScreenUpdating = True
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige