einfaches Makro zum multiplizieren

[lkr16]

Hallo Leute,

ich möchte gern ein Makro erstellen um ausgewählte Zellen zu multiplizieren mit einer vorgegeben Zahl..

zB:

A1=200
B1=300
C1=400
D1=230

A3=1,15

jetzt soll das Makro die Zelle die ich auswähle jeweils mit A3 multiplizieren.. folgendes habe ich gemacht:

Sub Makro6()
'
' Makro6 Makro
'
' Tastenkombination: Strg+m
'
    Range("A3").Select
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub


So allerdings multipliziert er immer wieder A1 mit A3 und nicht die Zelle die ich gerade angeklickt habe..
Was muss bei Range rein um es variabel auf die Zelle zu beziehen die ich anklicke?

MfG

[BoskoBiati]

Hi,

das geht auch mit einer Formel:

A3 markieren --> kopieren
A1:D1 markieren --> Inhalte einfügen --> multiplizieren --> Ok

[lkr16]

Hallo,

es sollen nur ausgewählte Zeilen multipliziert werden, nicht alle..
das heißt ich gehe meine Datei durch und wenn ich eine Zeile sehe die multipliziert werden muss, wil ich schnell strg m drücken und es erledigt haben..

[BoskoBiati]

Hi,

du kannst auch so jede einzelne Zelle markieren (mit STRG+Mausklick) und am Ende dann Inhalte einfügen.

Als Makro:

Code:

Sub Multipl()
Activecell=Activecell*Range("A3")
end sub

UNGETESTET!!!

[atilla]

Hallo ikr,

Lösch Range("A1") aus deinem Code und teste es noch mal

[atilla]

Hallo,

dann musste noch ein Select raus.

Dein Code so:

Code:

Sub Makro6()
'
' Makro6 Makro
'
' Tastenkombination: Strg+m
'
    Range("A3").Copy
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

[snb]

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [A1:D1]) Is Nothing Then Target = Target * [A3]
End Sub

[lkr16]

Hallo,
Danke an alle, es funktioniert nun! ::)

Allerdings geht die Tastenkombination nicht