Re: [de-users] Re: Calc-Makro: Dispatcher Code in Schleife einbauen?

[Jörg Schmidt]

Hallo,

Michelino Caroselli schrieb:
> >> >| sub copyCellByContent (oFromCell as Object, oToCell as Object)
> >> >|   select case oFromCell.Type
> >> >|     case 2                                           'zuerst,
> >> >|       oToCell.String = oFromCell.String
> 'weil häufiger,
> >> >|     case 1                                           'schneller
> >> >|       oToCell.Value = oFromCell.Value
> >> >|     case 3
> >> >|       oToCell.Formula = oFromCell.Formula
> >> >|     case 0
> >> >|       oToCell = ""
> >> >|   end select
> >> >| end sub
> > gefällt deinem Schönheitssinn u.U. besser :-)
>
> Zugegeben:)

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?



Gruß
Jörg

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]