Guten Tag,
ich habe eine Frage zu sogenannten Margenrechnern.
Wir arbeiten z.Zt. mit diesen Format:
[
attachment=41617]
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
Hi,
wenn Du an der bestehenden Struktur nichts ändern möchtest, dann kannst Du die Zielwertsuche dafür bemühen:
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 |
(07.01.2022, 09:35){Boris} schrieb: [ -> ]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
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.
(07.01.2022, 10:16){Boris} schrieb: [ -> ]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
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.
(07.01.2022, 11:03){Boris} schrieb: [ -> ]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`)
[
attachment=41622]
[attachment=41623]
Wir haben die Marge in der 16 Spalte davor kommen einige Spalten mit Zeichen und Zahlen eventuell hilft diese Info.
Danke dir.
MfG
JH97
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.
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