Range mit einem Wert multiplizieren

[Dani Frei]

Hallo NG

Wie muss ein VBA Code aussehen, um einen Range (A4-FZ225) mit einem Wert
(aus Zelle A1) zu multiplizieren?

Danke für Eure Hilfe und

[Günther Schulze]

On Sat, 18 Jun 2005 09:11:49 +0200, "Dani Frei"

Post by Dani Frei
Hallo NG

Hallo Dani,

Post by Dani Frei
Wie muss ein VBA Code aussehen, um einen Range (A4-FZ225) mit einem Wert
(aus Zelle A1) zu multiplizieren?

Wie wäre es hiermit ?

Sub Multiply()
Dim MyRange As Range
Dim Cell As Range
Set MyRange = ThisWorkbook.Sheets("Tabelle1").Range("A4:FZ225")
For Each Cell In MyRange
Cell.Value = (Cell.Value) *
(ThisWorkbook.Sheets("Tabelle1").Range("A1").Value)
Next Cell
End Sub

Liebe Grüße

Günther

[unknown]

Hallo Dani,

das geht auch ohne VBA. Ansonsten Zeichne die Aktionen mit dem Makrorecorder
auf.
Auf A1 gehe, kopieren, A4:Fz225 markieren, Bearbeiten, Inhalte einfügen,
multiplikation.

Gruß Hajo
MVP für Microsoft Excel
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.
http://home.media-n.de/ziplies/

Post by Dani Frei
Hallo NG
Wie muss ein VBA Code aussehen, um einen Range (A4-FZ225) mit einem Wert
(aus Zelle A1) zu multiplizieren?
Danke für Eure Hilfe und
--
Liebe Grüsse aus der Schweiz
Dani
P.S. *** wer Schreibfehler findet darf sie gerne Behalten :-) ***