title image


Smiley Re: VBA: Zellen kopieren, wenn hintergrundfarbe grün (Farbindex 4)
Hallo Klaus,







Sub Klaus()

Dim Bereich As Range, c As Range, i As Long

Set Bereich = Range("C3:C172")

For Each c In Bereich

    If c.Interior.ColorIndex = 4 Then

    i = i + 1

    Sheets("Tabelle2").Range("A" & i & ":F" & i).Value = Range("A" & c.Row & ":F" & c.Row).Value

    End If

Next c

End Sub





Code eingefügt mit Syntaxhighlighter 4.0





P.S. und OT: Herzliche Grüße an cris-ka!!!! Vielleicht bin ich doch noch lernfähig!
Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: