Ausgewählte Zellenfarbe soll nach dem kopieren sich nicht ändern

[Tommiks]

Hallo zusammen,

ich habe es mit VBA versucht, denn ich dachte , wenn ich die Bereiche mit einem Code versehe ändert sich die Farbe des Bereichs nicht.

Wenn ich eine gelbe Zelle mit Textinhalt kopiere und in eine blaue Zelle kopiere, dann wird die blaue Zelle zu einer gelben Zelle. Das möchte ich nicht , ich möchte , dass nur Werte kopiert werden eingefügt werden.

Ich würde mich über eine Lösung sehr freuen. Vielen Dank....

[Elex]

Hi

Range.Value = Range.Value

[Tommiks]

Code:

Sub Zellenformatfarbe1()
Range("k10:K16").Value.Interior.ColorIndex = 34
Range("L10:L16").Value.Interior.ColorIndex = 35
End Sub

Hat nicht funktioniert.

Code:

Sub Zellenformatfarbe1()
Range("k10:K16").Value = Range("k10:K16").Value.Interior.ColorIndex = 34
Range("L10:L16").Value = Range("L10:L16").Value.Interior.ColorIndex = 35
End Sub

Hat auch nicht funktioniert.

[Elex]

Wenn ich eine gelbe Zelle mit Textinhalt kopiere und in eine blaue Zelle kopiere, dann wird die blaue Zelle zu einer gelben Zelle. Das möchte ich nicht , ich möchte , dass nur Werte kopiert werden eingefügt werden.

Das war dein anliegen. Die Farben sind schon da und nur Text übertragen.
Range("a").Value = Range("b").Value

[Tommiks]

Code:

Sub Zellfarbe()
ThisWorkbook.Worksheets("Tabelle1").Range("J10:J20").Value = Range("K10:K20").Value
End Sub

Code:

Sub Zellfarbe()
Range("J10:J20").Value = Range("K10:K20").Value
End Sub

Kopiert immer noch die Farbe mit.

[Elex]

Mal in Ruhe Mittag machen und dann weiter.  

Da wird keine Farbe kopiert.

[DIZA]

Code:

Range("J11:J22").Copy
Range("K11:K22").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

[Elex]

Hi Dirk

Und wo ist jetzt der Unterschied von deinem Code zu dem.
Range("J10:J20").Value = Range("K10:K20").Value

Gruß Elex

[DIZA]

Hi Elex,

vom Grunde her keiner jedoch, wenn deiner beim TS nicht funktioniert (verstehe ich nur bedingt) wäre es ein weiterer Versuch.
Versteh nur bedingt bezieht sich darauf, dass dein Code falsch rum ist.

müsste wenn dann eher 

Code:

Range("K10:K20").Value = Range("J10:J20").Value

sein.