Nur Werte kopieren
17.09.2007 15:07:00
Rolf
wie kann ich bei folgenden Makro nur die Werte kopieren?
Makrobeschreibung:
Alle Zellen mit Inhalt der Spalte "C" die nicht rot gekennzeichnet sind, werden in die Datei: "Test 2.xls" mit Formaten kopiert.
Beide Dateien müssen geöffnet sein.
Sub kopieren()
Dim c As Range
Dim WS1 As Worksheet
Dim WS3 As Worksheet
Set WS1 = Workbooks("Test 1.xls").Sheets(2)
Set WS3 = Workbooks("Test 2.xls").Sheets(1)
WS1.Range("C2:C" & ActiveSheet.Range("C65536").End(xlUp).Row + 1).Select
For Each c In Selection
If c Empty And c.Interior.ColorIndex 3 Then '"3" Farbe Rot
c.Copy WS3.Range("B65536").End(xlUp).Offset(1, 0)
End If
Next
End Sub
Vielen Dank im voraus
Rolf
Anzeige