Margenrechner

[JH97]

Guten Tag,

ich habe eine Frage zu sogenannten Margenrechnern.

Wir arbeiten z.Zt. mit diesen Format:


   


Um unsere Marge auf Minimum 30% anzupassen müssen wir den Angebotspreis verändern. 

Mit welcher Formel ist es mir möglich, die Marge nach belieben zu verändern (z.b. 55 Marge) und die Summe des Angebotspreises sich der veränderten Marge anpasst.

Vielen Dank im Voraus.

Mit freundlichen Grüßen
JH97

[{Boris}]

Hi,

wenn Du an der bestehenden Struktur nichts ändern möchtest, dann kannst Du die Zielwertsuche dafür bemühen:

[StefanB]

Moin,

	J	K	L
9	Einkau	Verkauf	Marge
10	6	9,00	50%

Zelle	Formel
K10	=(J10*L10)+J10

Verwendete Systemkomponenten: [Windows (64-bit) NT 10.00] / MS Excel 365

Diese Tabelle wurde mit Tab2Html (v2.7.1) erstellt. ©Gerd alias Bamberg

[JH97]

Hi,

wenn Du an der bestehenden Struktur nichts ändern möchtest, dann kannst Du die Zielwertsuche dafür bemühen:

Danke Boris.

Was wäre wenn ich diese Formel auf 200 Artikel gleichzeitig angleichen möchte?

Ist das möglich? Mit der Zielwertsuche nicht oder?

Danke dir im Voraus.

MfG  JH97

[{Boris}]

Hi,

Du kannst per VBA die Zielwertsuche über mehrere Zellen durchführen.
Im Beispiel H3:H6 - das musst Du anpassen.

Code:

Sub Zielwertsuche()
Dim C As Range, dblZielwert As Double
dblZielwert = Application.InputBox(prompt:="Zielwert eingeben", Title:="Zielwertsuche", Type:=1)
If dblZielwert <> 0 Then
    For Each C In Range("H3:H6")
        If C.HasFormula Then
            C.GoalSeek Goal:=dblZielwert, ChangingCell:=Cells(C.Row, 2)
        End If
    Next C
End If
End Sub

[EDIT]: Code noch leicht geändert: Falls die Inputbox mit Abbrechen bestätigt wird, passiert jetzt nix.
Und wichtig: Falls die Zielwerte ein mal ermittelt sind, sind die bisherigen Angebotspreise futsch.

[JH97]

Hi,

Du kannst per VBA die Zielwertsuche über mehrere Zellen durchführen.
Im Beispiel H3:H6 - das musst Du anpassen.

Code:

Sub Zielwertsuche()
Dim C As Range, dblZielwert As Double
dblZielwert = Application.InputBox(prompt:="Zielwert eingeben", Title:="Zielwertsuche", Type:=1)
For Each C In Range("H3:H6")
    If C.HasFormula Then
        C.GoalSeek Goal:=dblZielwert, ChangingCell:=Cells(C.Row, 2)
    End If
Next C
End Sub

Kannst du es einfacher erklären so dass wir es Ausführen können?

Derzeit haben wir noch nicht mit VBA gearbeitet.

MfG 
JH97

[{Boris}]

Hi,

• VBA-Editor mit Alt+F11 öffnen
  
• Dann oben "Einfügen" - "Modul"
  
• In das sich öffnende leere Fenster den Code reinkopieren
  
• VBA-Editor wieder schließen
  
• Im Tabellenblatt einen Button einfügen über "Entwicklertools" - Steuerlemente - Einfügen - Formularsteuerelemente - Schaltfläche
  
• Rechtsklick auf die eingefügte Schaltfläche - Makro zuweisen - "Zielwertsuche" auswählen und mit OK bestätigen
  

Falls die Registerkarte "Entwicklertools" bei Dir nicht vorhanden sein sollte:
Datei - Optionen - Menüband anpassen - Haken bei "Entwicklertools" setzen.

[JH97]

Hi,

• VBA-Editor mit Alt+F11 öffnen
  
• Dann oben "Einfügen" - "Modul"
  
• In das sich öffnende leere Fenster den Code reinkopieren
  
• VBA-Editor wieder schließen
  
• Im Tabellenblatt einen Button einfügen über "Entwicklertools" - Steuerlemente - Einfügen - Formularsteuerelemente - Schaltfläche
  
• Rechtsklick auf die eingefügte Schaltfläche - Makro zuweisen - "Zielwertsuche" auswählen und mit OK bestätigen
  

Falls die Registerkarte "Entwicklertools" bei Dir nicht vorhanden sein sollte:
Datei - Optionen - Menüband anpassen - Haken bei "Entwicklertools" setzen.

Leider Kommt ein Bezugsfehler am ende (Laufzeitfehler `1004`)
   
   
Wir haben die Marge in der 16 Spalte davor kommen einige Spalten mit Zeichen und Zahlen eventuell hilft diese Info.

Danke dir.

MfG 
JH97

[{Boris}]

Hi,

das ist auch nicht mein Code. Die ChangingCell hast Du mit Cells(C.Row, 8) angegeben - 8 ist aber Spalte H - und da stehen doch die Formeln drin. Es muss die Spalte mit den Angebotspreisen sein - in Deinem ersten Bild war das Spalte B - also 2.
Lad doch mal Deine Mappe mit Deiner EXAKTEN Struktur hoch. Sensible Daten vorher löschen.

[JH97]

Hallo Boris,

ein kleiner Denkfehler.. wir haben die Marge statt den Angebotspreis anpassen wollen.

Wir haben die Bezugszelle nun angepasst. Jetzt funktioniert alles!!

Ich danke Dir! das erspart uns super viel Arbeit.

Mit freundlichen Grüßen
JH97