Excel - alle Werte mit Formel verknüpfen

Question

Hallo,

ich habe eine Exceltabelle (ist eine Preisliste), in welcher relativ viele Einzelpreise
stehen.
Ich möchte jetzt jeden dieser einzelnen Preise per Formel mit einem Faktor einer
Zelle verknüpfen. Das heißt, wenn ich in diese eine Zelle eine 1 eingebe, dann
bleiben alle Preise gleich (* 1 quasi). Wenn ich jedoch zum Beispiel eine 1,15 dort
eingebe, sollen alle Preise automatisch um 15% erhöht werden.
Ich könnte jetzt auch in jede Zelle reingehen und dort vor den Preis "=T1*" setzen
und Enter drücken. Dann hätte ich den Preis der Zelle auch mit dem Faktor in der
Zelle "T1" verknüpft. Dann jedoch sitze ich noch Weihnachten an der Liste :-( .

Gibt es eine elegantere Lösung? Vielleicht über ein Makro?
Mir würde es reichen, wenn ich die jeweilige Zelle markiere und dann über ein
Makro diese Änderung veranlasse (=T1 x Zelleninhalt).

Danke im Voraus.

Gruß

Holger

Answer 1

Hallo M.O.,

vielen Dank für das Makro.
Das funktioniert ja hervorragend.

Wäre es auch möglich, dass so zu machen, dass nach dem ausführen des
Makros in den einzelnen Zellen eine Formel mit dem enthaltenene Wert
verknüpft wird.

Ich mache besser mal ein Beispiel.
In einer Zelle steht der Wert 97.
Wenn ich die Zelle markiere und das Makro ausführe, soll danach in dieser
Zelle "=$T$1*97" stehen. Also eine dauerhafte Verknüpfung des Zellenwertes
mit dem Faktor in Zelle T1. Das hätte den Vorteil, dass ich später schnell alle
Preise ändern könnte, indem ich den Faktor ändere.

Das ganze so wie beim ersten Makro. Ich markiere manuell alle relevanten
Zellen und führe dann das Makro aus.

Gruß

Holger

Answer 2

Hallo Holger,

klar geht das:

Sub multiplizieren()

Dim Zelle As Range

For Each Zelle In Selection

With Zelle
.FormulaLocal = "=Runden(" & .Value & "*$T$1;2)"
.NumberFormat = "#,##0.00"
End With

Next Zelle

End Sub

Gruß

M.O.

Answer 3

Hallo M.O.,

vielen Dank für die schnelle Hilfe.

Das ist es. Genau das, was ich gesucht habe.

Daaaaaaanke.......


Gruß

Holger