![]() |
Betrifft: Zelle mit Farbe kopieren
von: Peter Wawoczny
Geschrieben am: 04.10.2014 21:36:45
Hallo Leute.
Ich brauch Eure Hilfe.
Ich möchte das diese Code nicht nur die Werte aber auch die Formatierung mit kopiert.
Danke Peter
![]() ![]() |
Betrifft: AW: Zelle mit Farbe kopieren
von: Adis
Geschrieben am: 04.10.2014 22:05:41
Hallo
wo ist denn der Code? man sieht ihn nicht ...
Ich kann jetzt nur raten, das im Code mit -PasteSpecial- gearbeitet wird,
und dort PasteSpecial xlPasteValues steht. Dann werden nur Werte kopiert.
In dem Fall abaendern in: xlPasteAll Dann wird alles kopiert (auch Rahmen)
Sollte mein Tipp nicht helfen bitte den Code angeben. Sonst raten wir nur!
Gruss Adis
![]() ![]() |
Betrifft: AW: Zelle mit Farbe kopieren
von: Peter Wawoczny
Geschrieben am: 04.10.2014 22:16:15
Bitte um Verzeihung. Das ist der Code.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Worksheets("Abfallerfassung Base Extrusion").Range("E" & Rows.Count).End(xlUp).Offset(1, 0) = _ Target.Value: Cancel = True End Sub
![]() ![]() |
Betrifft: AW: Zelle mit Farbe kopieren
von: Daniel
Geschrieben am: 04.10.2014 22:23:01
Hi
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target.Copy With Worksheets("Abfallerfassung Base Extrusion").Range("E" & Rows.Count).End(xlUp).Offset(1, 0) _ .PasteSpecial xlpastevalues .PasteSpecial xlpasteformats end With Application.cutcopymode = false End SubGruß Daniel
![]() ![]() |
Betrifft: AW: Zelle mit Farbe kopieren
von: Peter Wawoczny
Geschrieben am: 04.10.2014 22:45:59
Ihr seid die gröste. Vielen Dank
![]() |