Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nur Werte kopieren
17.09.2007 15:07:00
Rolf
Hallo Excelprofis,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur Werte kopieren
17.09.2007 15:27:14
frigo
Hi Rolf,
aktuell hast du die Copy Funktion in einem Aufwasch mit dem Einfügen im Zielbereich verbunden:
c.Copy WS3.Range("B65536").End(xlUp).Offset(1, 0)
Trenn das Kopieren und Einfügen:
c.Copy 'Kopieren
WS3.Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues 'Einfügen der Werte
..nicht getestet, aber sollte funktionieren..
Gruß, Frigo

AW: Nur Werte kopieren
17.09.2007 15:59:00
Rolf
Hallo Frigo,
funktioniert
Vielen Dank Gruss
Rolf
Anzeige

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige