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
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
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.
Hola,
dann zeig doch mal den Aufbau an einer Beispieldatei bitte.
Gruß,
steve1da
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
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.
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
[
attachment=6701]
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