Gefundene Zellen,Zeilen nach Tabelle2 kopieren
23.07.2005 15:21:52
Egon
Ich möchte einige Bereiche z.B. E11:K11 (die habe ich vorher mit For Each gefunden)
in Tabelle 2 in die jeweils nächste freie Zeile kopieren.
Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Worksheets("Tabelle1").Range("E11:K11")
If c.Value <= Range("M11").Value Or c.Value >= Range("N11").Value Then
c.Interior.ColorIndex = 3
Else
c.Interior.ColorIndex = 4
End If
Next c
End Sub
In dieser Sub fehlt mir noch das kopieren der roten Zellen(Zeilen) nach Tabelle2
Wer kann helfen?
Gruß
Egon
Anzeige