|
z.B. so
Option Explicit
Sub Test()
'Quelle
Range("A1:C4").Value = Evaluate("{5,10,15;20,30,40;55,65,70;85,90,100}")
Range("A1:C4").Copy
'Ziel
Range("E1:G4").Value = Evaluate("{1,1,1;1,0.01,1;1,0.01,1;1,1,1}")
Range("E1:G4").PasteSpecial xlPasteAll, xlPasteSpecialOperationMultiply
'Range("E1:G4").NumberFormat = "0.00%"
End Sub
Der Bereich, in dem durch 100 geteilt werden soll, muss den Wert 0,01 (eng: 0.01) besitzen.
|