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....
Hi
Range.Value = Range.Value
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.
Zitat: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
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.
Mal in Ruhe Mittag machen und dann weiter.
Da wird keine Farbe kopiert.
Hi Dirk
Und wo ist jetzt der Unterschied von deinem Code zu dem.
Range("J10:J20").Value = Range("K10:K20").Value
Gruß Elex
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.