spalte zum quadrat
11.02.2004 13:13:59
helge
mit folgendem code lasse ich mir die werte einer spalte quadrieren und füge das ergebnis in eine neue spalte ein.
Dim spalte1, ziel As Variant
Set spalte1 = Application.InputBox("Spalte1", Type:=8)
Set ziel = Application.InputBox("Ziel", Type:=8)
spalte1.Copy
ziel.Select
ActiveCell.PasteSpecial
ActiveCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
kann man die letzten 2 Zeilen nicht irgendwie vereinfachen, sodass ich gleich beim 1. PasteSpecial sage: nimm gleich jede Zelle der Spalte zum Quadrat und füge sie erst dann in meine neue Spalte ein???
danke euch
helge