Pastespecial med Multiply i VBA-Excel

Gætter på at det er tallene i C1:C396 du gerne vil gange med 30
Skriver du 30 i A1 kan du gøre sådan her

    Range("A1").Copy
    Range("C1:C395").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False

Der er naturligvis mange andre måder til at opnå det samme, men svar på dit spørgsmål ;-)

@Thor Østergaard

Ja det var da et bud, og det virker egentligt, sådan som jeg bad om.
Jeg mener bare at have set en VBA-løsning, hvor jeg I min vba-kode kan definere den faktor der skal ganges med, uden først at skrive den ind I en celle...

Er der andre bud hvor dette er muligt?

Det kunne være noget i retning af

Dim c as range
for each c in  Range("C1:C395").cells
  c.value = c.value*30
next

Kunne det bruges?

@Thor Østergaard:

Ja det kunne bruges.

Og jeg må acceptere at når jeg vil bruge en factor, som jeg har defineret I min VBA-kode, så skal vi over I en en for-each-løkke.

Jeg brugte ikke dit forslag råt og usødet.

Jeg valgte at læse dit svar som noget I retning af: "Du bliver nødt til at ændre din løsning til noget med en for each-løsning.

Ud fra det sså omskrev jeg det til men egen for each udgave.

Takker for dit engagement.