Jörg Schmidt wrote: > Und was meint hier "Schönheitssinn" - IMHO überträgt der Code doch > beliebigen Inhalt, warum das also nicht direkt tun? > > sub copyCellByContent (oFromCell as Object, oToCell as Object) > oToCell.FormulaLocal = oFromCell.FormulaLocal > end sub > > Oder was übersehe ich?
Nö, du nicht. Ich hatte das FormulaLocal nicht gekannt, daher die 'select case'. Gruß, Michel -- --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
