title image


Smiley Re: Zeilen automatisch finden, die mit Farben ausgefüllt sind ?
Hallo Madita,



du könntest die farbigen Daten mit einem kleinen Makro in Tabelle2 übertragen.

Im Beispiel stehen deine Daten in Tabelle1. Durchsucht wird nach Spalte A. Sobald die Zelle farbig ist, wird die ganze Zeile nach Tabelle2 kopiert.



Sub test()

Dim ws1 As Worksheet

Dim ws2 As Worksheet

Dim x As Long, y As Long, letzte As Long

Set ws1 = Worksheets("Tabelle1")

Set ws2 = Worksheets("Tabelle2")

y = 1

letzte = 65536

If [a65536] = "" Then letzte = Cells(Rows.Count, 1).End(xlUp).Row

For x = 1 To letzte

If ws1.Cells(x, 1).Interior.ColorIndex xlNone Then

ws1.Rows(x).Copy ws2.Rows(y)

y = y + 1

End If

Next x

End Sub



Gruß Boris
Grüße Boris

EXCELFORMELN die ultimative Formelseite

Seit Oktober 2006 ist es da: EXCEL - Das Zauberbuch

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: