Hallo Leute,
ich habe vorgestern schon Hilfe bekommen und habe dazu nochmal eine Frage:
Set rng = Range("B37:AO56")
vArr = rng.Value
ActiveSheet.Cells(37, Columns.Count).End(xlToLeft).Offset(0, 1).Resize(UBound(vArr, 1), UBound(vArr, 2)).Value = vArr
mit dem Code füge ich die Werte der Range an der richtigen Stelle ein, habe mir jetzt aber noch eine Funktion geschrieben die die Zellfarbe mit in ein Diagramm übernehmen kann, also müsste ich auch die Zellfarben mit kopieren, ist das möglich?
Vielen Dank im Voraus :)
|