ich brauche dringend Eure Hilfe.
Ich trage mittels eines Makros einen Wert in eine jeweilige Zeile ein:
Sub FreierPreis()
Freipreis = CDbl(InputBox("Preis eingeben"))
Call suchpreis
End Sub
Sub suchpreis()
Dim bb
ActiveSheet.Unprotect
bb = [Eingabe!c50] - 1
Cells(bb, 16).Select
Selection = Freipreis
ActiveSheet.Protect
End Sub
Das funktioniert auch wirklich gut.Jetzt muß ich aber in diese Zelle nicht den Wert der Eingabe "Freipreis" eintragen sondern diese auch noch durch den Wert 1+Wert der Spalte links neben der Selektion teilen.
D.h. wenn ich in Zelle P4 den Wert 10 über die Abfrage eintippe (=Freipreis) dann muß am Ende des Makros in der Zelle stehen:
=10/(1+O4)
Wie kann ich das mit dem Makro machen?
Vielen Dank für Eure Hilfe
Gruß Jens