title image


Smiley Bereich je nach Zellenfarbe kopieren
Hallo Klaus,



so geht es:







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

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

    End If

Next c

Application.CutCopyMode = False

End Sub





Code eingefügt mit Syntaxhighlighter 4.0




Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: