Code optimieren?
11.02.2004 21:49:43
helge
ich hatte heut schonmal um hilfe gebeten, aber letztendlich kamen wir auch nicht weiter.
nun nochmal die frage. kann man folgenden Code optimieren speziell das doppelte ziel.PasteSpecial
in diesem code markiere ich mir einen zellbereich den ich dann ins quadrat nehme und in eine neue spalte schreibe.
nun wollt ich fragen ob es eine bessere lösung gibt als 2mal ziel.PasteSpecial
Dim spalte1, spalte2, ziel As Range
Set spalte1 = Application.InputBox("Spalte1", Type:=8)
Set ziel = Application.InputBox("Ziel", Type:=8)
spalte1.Copy
ziel.PasteSpecial
ziel.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
danke für jede lösung
helge