Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
156to160
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
156to160
156to160
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige