Hallo zusammen,
in einem Kalkulationsmodell stehen etliche Artikel untereinander.
Jeweis in den Zellen daneben der Ek-Preis, Kalkulationsfaktor
und VK-Preis.
Der Kalkulationsfaktor wird zentral in L13 vorgegeben:
=WENN(C11>0;L13;0)
Wenn ich einen der K-Faktoren nun manuell ändere, ist natürlich
die Formel futsch.
Gibt es eine Möglichkeit, die Formel für den K-Faktor in allen Zeilen
per Knopfdruck zu „restaurieren“?
Gruß und danke schonmal
Rolf
Hallo Rolf,
Gibt es eine Möglichkeit, die Formel für den K-Faktor in allen
Zeilen
per Knopfdruck zu „restaurieren“?
Nur per Makro, das auf Knopfdruck die Formel in alle betroffenen Zellen reinschreibt.
Alternative ohne Makro: Du fügst eine Extra-Spalte für manuelle Werte ein und änderst die Formel so um, daß sie nur auf L13 zurückgreift, wenn kein manueller Wert eingegeben wurde.
Gruß Kubi
Hi Kubi,
vielen Dank für die schnelle Antwort
Gibt es eine Möglichkeit, die Formel für den K-Faktor in allen
Zeilen
per Knopfdruck zu „restaurieren“?Nur per Makro, das auf Knopfdruck die Formel in alle
betroffenen Zellen reinschreibt.
Könnte mir vielleicht jemand sagen, wie so ein Makro
aussehen müßte? Da bin ich leider etwas unterbelichtet 
Alternative ohne Makro: Du fügst eine Extra-Spalte für
manuelle Werte ein und änderst die Formel so um, daß sie nur
auf L13 zurückgreift, wenn kein manueller Wert eingegeben
wurde.
Eine zusätzliche Spalte läßt sich leider nicht realisieren.
Gruß
Rolf
Nur per Makro, das auf Knopfdruck die Formel in alle
betroffenen Zellen reinschreibt.Könnte mir vielleicht jemand sagen, wie so ein Makro
aussehen müßte? Da bin ich leider etwas unterbelichtet
Hi Rolf,
in Tabelle2 steht ine Kopie von Tabelle1. Tabelle2 kannst du ausblenden.
Option Explicit
Sub formeln()
Dim ws2 As Worksheet, Zelle As Object
Set ws2 = Worksheets("Tabelle2")
With Worksheets("Tabelle1")
For Each Zelle In ws2.UsedRange
If Zelle.HasFormula = True Then
.Range(Zelle.Address).FormulaLocal = Zelle.FormulaLocal
End If
Next Zelle
End With
End Sub
Gruß
Reinhard
Hallo Rolf,
mit folgendem Makro wird Formel eingegeben und in der Spalte nach unten kopiert. Die 1. Zelle in der die Formel eingetragen wird ist dabei D11 (K-Werte stehen in Spalte D). Die Startzelle kannst Du beliebig ändern.
Sub Makro1()
'
' Formel in Zelle D11 eintragen und nach unten kopieren
'
Range("D11").Select
' Falls K-Werte nich in Spalte D, dann Wert '-1' in der nachfolgenden Zeile anpassen.
' Er gibt die relative Position der Spalte C zur Spalte mit den K-Werten an.
ActiveCell.FormulaR1C1 = "=IF(RC[-1]\>0,R13C12,0)"
Range(Selection, Selection.End(xlDown)).Select
Selection.FillDown
ActiveCell.Offset(-1, 0).Range("A1").Select
End Sub
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Danke
Das klappt *freu*
Danke für eure Hilfe
Gruß und schönes Wochenende
Rolf