Ganze Spalte mit Zahl multiplizieren

[keksyc]

Hallo zusammen,

mir fällt kein besserer Titel ein, allerdings trifft es mein Betreff nicht ganz. Ich habe folgendes Problem:
Ich habe eine Tabelle mit Preisen und soll jetzt einen Zuschlag draufpacken. Allerdings weiß ich die Höhe davon nicht, weswegen ich alles als Formel schreiben soll.
Sprich, ich würde gerne alle Preise mit x multiplizieren. X steht auf einem anderen Tabellenblatt und soll dort variabel geändert werden können.
Das einzige was ich dazu finde ist über Inhalte hinzufügen und dann auf multiplizieren klicken. Aber dann habe ich ja Werte, ich will aber Formeln.

Vielleicht kann mir hier jemand helfen.
Ich bedanke mich im Voraus  :19: 

Gruß keksyc

[IchBinIch]

Hi,

meinst Du so?

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	Preis aktuell	Preis neu
2	1	1,19
3	2	2,38
4	3	3,57
5	5	5,95
6	6	7,14
7	9	10,71
8	10	11,9
9	15	17,85

Zelle	Formel
B2	=A2*Tabelle2!$A$1
B3	=A3*Tabelle2!$A$1
B4	=A4*Tabelle2!$A$1
B5	=A5*Tabelle2!$A$1
B6	=A6*Tabelle2!$A$1
B7	=A7*Tabelle2!$A$1
B8	=A8*Tabelle2!$A$1
B9	=A9*Tabelle2!$A$1

Arbeitsblatt mit dem Namen 'Tabelle2'
	A
1	1,19

Gruß
Ich

[keksyc]

Erstmal vielen Dank für deine schnelle Antwort. Auf die Variante bin ich auch schon gekommen.
Allerdings sind das Preise für sehr viele verschiedene Länder, die alle nebeneinander stehen, weswegen ich gerne ohne Hilfsspalten auskommen würde, wenn das möglich ist.

[steve1da]

Hola,

dann zeig doch mal den Aufbau an einer Beispieldatei bitte.

Gruß,
steve1da

[chris-ka]

Hi,

geht nicht!
Wie auch eine Formel braucht einen Bezug...

Über Makro könnte ich deine Zahlen in Formeln umwandeln, nur ob das sinnvoll ist?

Code:

Option Explicit
Sub til()
Dim rng_C As Range
For Each rng_C In Selection
    If IsNumeric(rng_C) Then
        rng_C.Formula = "=" & rng_C & "*Tabelle2!A1" 'anpassen
    End If
Next
End Sub

• Erzeuge eine Kopie deiner Mappe
  
• Ändere im Code deine Bezugszelle (Blattname und Zelle)
  
• markiere deine Zahlen die nun Formeln sein sollen und führe den Code aus
  

[keksyc]

Ok, ich habe hier eine Beispieldatei. In B1 steht mein Zuschlag, den ich variabel verändern können will. Die Preise stehen als Werte in den Zellen (kommen vom Anbieter).
Jetzt will ich irgendeine Zahl in B1 eintragen können, und alle Preise werden damit multipliziert.

Ich hoffe, es ist jetzt verständlicher.

Edit: Habe deine Nachricht zu spät gesehen. Schade, dann werde ich es wohl doch mit Hilfsspalten machen müssen. Mit Makro habe ich so gar nichts am Hut :D

Trotzdem vielen Dank für eure Hilfe.

[chris-ka]

Hi,

bei dem Bsp wäre es

Code:

Sub til()
Dim rng_C As Range
For Each rng_C In Selection
    If IsNumeric(rng_C) Then
        rng_C.Formula = "=" & rng_C & "*(1+B1)"
    End If
Next
End Sub

Wobei ich hier einfach eine Kopie der Tabelle empfehlen würde!!!
Mit dem neuen Preis

  doppelt.xlsx (Größe: 11,08 KB / Downloads: 1)

[IchBinIch]

Oder so?

Arbeitsblatt mit dem Namen 'Tabelle2'
	A	B	C
2		Germany	Belgium
3	Produkt 1	52,5	54,6
4	Produkt 2	52,5	54,6
5	Produkt 3	52,5	54,6
6	Produkt 4	52,5	54,6
7	Produkt 5	52,5	54,6

Zelle	Formel
B2	=Tabelle1!B3
C2	=Tabelle1!C3
A3	=Tabelle1!A4
B3	=Tabelle1!B4*(1+(Tabelle1!$B$1*1))
C3	=Tabelle1!C4*(1+(Tabelle1!$B$1*1))
A4	=Tabelle1!A5
B4	=Tabelle1!B5*(1+(Tabelle1!$B$1*1))
C4	=Tabelle1!C5*(1+(Tabelle1!$B$1*1))
A5	=Tabelle1!A6
B5	=Tabelle1!B6*(1+(Tabelle1!$B$1*1))
C5	=Tabelle1!C6*(1+(Tabelle1!$B$1*1))
A6	=Tabelle1!A7
B6	=Tabelle1!B7*(1+(Tabelle1!$B$1*1))
C6	=Tabelle1!C7*(1+(Tabelle1!$B$1*1))
A7	=Tabelle1!A8
B7	=Tabelle1!B8*(1+(Tabelle1!$B$1*1))
C7	=Tabelle1!C8*(1+(Tabelle1!$B$1*1))

Basis ist Deine Tabelle1.

Gruß
Ich