gibt es eine möglichkeit aus der Tabelle1 A20:D119 nur die Farben in die Tabelle2 A20:D119 zu übernehmen?
vielen Dank schon mal!!!
Gruß Valeri
Sub Farben_kopieren()
Dim rng As Range
Application.ScreenUpdating = False
For Each rng In Sheets("Tabelle1").Range("A20:D119")
Sheets("Tabelle2").Cells(rng.Row, rng.Column).Interior.ColorIndex _
= rng.Interior.ColorIndex
Next
End Sub
soweit war ich auch schonn, genau darum geht es ja, ich möchte die Formate am Zielort bis auf _
die Farben ja beibehalten!
Ich hätte daraus gelesen das am Zielort die Farbe erhalten bleiben soll und ich hätte vermutet Du überträgst die Farbe mit