einige, nicht alle, Eigenschaften übernhmen
11.03.2014 16:40:56
Franz
hier erst mal ein Schnippsel, mit dem ich arbeite:
Dim rngL(1 To 9)
with anderetabelle
rngL(1) = .Range("SpzCalTermine")
usw
end with
For nr = 1 To 9
Range(Cells(40, spal + plusSpal), Cells(5039, spal + plusSpal)) = rngL(nr)
next
... auf diese Weise lassen sich Werte auslesen und woanders wieder einfügen. Ich hoffe, ich habe alles wichtige gepostet.
Nun würde ich aber außer den Werten auch noch die Zellfarbe und die Schriftfarbe - NICHT die bed. Formatierung! - übernehmen; sowie, falls vorhanden, den Kommentar. Ist das möglich?
Danke schonmal und Grüße
Franz