copy mit Einschränkung

06/10/2008 - 09:22 von Hermann Klopsch | Report spam
Hallo,

dank der Hilfe hier im Forum funktioniert folgendes (Teil)-Makro
(und mein Projekt)


...

' kopieren nach ergebnis
With Sheets("Set")
For Each rngZeile In .Range("Set1").Rows
rngZeile.Copy _
Destination:=Sheets("Ergebnis").Range("indirect(B3)")
Next
End With



Leider werden mit dem copy-Befehl aber auch die Formatierungen,
also Farbe der Zellen bzw. Zellumrandungen, kopiert.
Kann man in obigen Makro die Kopierfunktion nur auf den Wert oder
den Inhalt der Zellen beschrànken?


Mit freundlichen Grüßen aus dem
verregneten Sachsen

Hermann
 

Lesen sie die antworten

#1 Werner P. Schulz
06/10/2008 - 09:52 | Warnen spam
Am Mon, 06 Oct 2008 09:22:10 +0200 schrieb Hermann Klopsch:


Leider werden mit dem copy-Befehl aber auch die Formatierungen,
also Farbe der Zellen bzw. Zellumrandungen, kopiert.
Kann man in obigen Makro die Kopierfunktion nur auf den Wert oder
den Inhalt der Zellen beschrànken?



With Range("C1").Copy
Range("C2").PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False

... dann kopier nur die Werte nach obigem Muster
Gruss Werner
mail nur an => nospam0601 at wp-schulz.de

Google fuer Linux-Fragen => http://www.google.de/linux <=

Ähnliche fragen