Zeilen ausschneiden

Forumthread: Zeilen ausschneiden
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zeilen ausschneiden

Zeilen ausschneiden

09.09.2002 23:13:00

Rainer W

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

L.Vira bitte nochmal reinschauen

09.09.2002 23:49:09

Rainer W
Re: L.Vira bitte nochmal reinschauen

10.09.2002 00:43:06

L.Vira
Na ja, doch noch...

10.09.2002 01:33:55

L.Vira

L.Vira bitte nochmal reinschauen

09.09.2002 23: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

Re: L.Vira bitte nochmal reinschauen

10.09.2002 00:43:06

L.Vira

heute keinen Bock mehr, morgen.

Na ja, doch noch...

10.09.2002 01: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

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