Macro i excell

Der skal naturligvis stå : Jeg ønsker en macro der lægger 0,1 til alle markerede felter.

Hvis du skriver værdien 0,1 i celle C1, skal den se således ud:   
   
Range ("C1").Select ' hvis C1 optaget, må du rette til.
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "0.1"
Range("C1").Copy
Range("A1,A3,A5").Select ' udskift med dine egne celleværdier, adskilt af komma
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
Range ("C1").Select
selection.clear

Makroen skriver 0,1 i C1, kopierer og laver en Indsæt Speciel på de valgte celler. Derefter slettes cellen med tillægsværdien.

Bare for en ordens skyld: Der er en særlig Excel-kategori. Chancerne for at få brugbare svar er langt større dér!

Virkede det?

Undskyld den lange svartid, men jeg har været på ferie.
Ja det virker sikkert, men makro'en skulle virke på alle de felter (ikke et array)som er markeret med musen.

Det tog lige lidt tid, men her er den!

Sub LægNulKommaEnTil()
Dim glrange As Range

Application.ScreenUpdating = False  ' slår skærmopdatering fra
Selection.Name = "glrange"          ' giver et navn til de markerede celler

Range("IV1").Select                ' går til den allersidste kolonne, så der ikke                                  skrives oveni noget andet
Application.CutCopyMode = False    ' tømmer udklipsholderen
ActiveCell.FormulaR1C1 = "0.1"      ' værdien, der skal ganges med
Range("IV1").Copy                  ' kopierer cellens indhold
Range("glrange").Select            ' aktiverer den oprindelige tabel
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False    ' ganger alle celler i tabellen
                                      med den valgte værdi
Range("IV1").Select                ' går tilbage til multiplikatoren
Selection.Clear                    ' og sletter den
Range("A1").Select                  ' Tilbage til starten af regnearket
Application.ScreenUpdating = True  ' slå skærmopdatering til igen.

End Sub

Er du kommet videre?

Lukketid?

Bedre sent end aldrig

;-D