Vergleich zu Vorgänger Wert
09.10.2023 15:10:58
Markus Thomas
ich konnte mir schon des Öfteren über die Beiträge in diesem Forum weiterhelfen, nur leider bin ich nun an einem Punkt angekommen, wo ich nicht wirklich weiterkomme.
Ich habe mir für die Eingabe bzw. Zusammenstellung eine Maschinen Konfiguration einen Konfigurator mit Hilfe von Excel und VBA eine Konfigurator erstellt, welcher mir zusätzlich auch den Verkaufspreis der Maschine ermittelt.
Die Eingabe erfolgt auf einem "Basis" Tabellenblatt über die Active-X Steuerelemente inkl. abschalten und Schalten einzelner Optionen.
Nun habe ich allerdings folgen Gedanke, ich möchte beim Verkaufspreis eine die Änderung zur aktuellen Konfiguration darstellen, d.h. jdesmal wenn eine neue Option an- / bzw. abgewählt wird möchte ich die Differenz transparent darstellen.
Hier war der Gedanke diese über VBA zu realisieren.
Folgender Code wurde hierzu von meiner Seite angedacht:
Private Sub Worksheet_Calculate()
If Blatt01.Range("P2").Value > 1 Then 'Prüft ob sich der Wert Ändert
'Application.ScreenUpdating = False 'Bildschirm Aktualisierung aus
Blatt18.Range("H67").Copy 'Daten kopieren von "Aktuell"
Blatt18.Range("H68").PasteSpecial xlValues 'Daten einfügen nach "Alt" - ohne übernehmen der Formatierung
Blatt18.Range("H66").Copy 'Daten kopieren von "Bruttoverkaufspreis"
Blatt18.Range("H67").PasteSpecial xlValues 'Daten einfügen nach "Aktuell" - ohne übernehmen der Formatierung
'Application.ScreenUpdating = True 'Bildschirm Aktualisierung an
End If
End SubBei diesem Code kommt es allerdings dazu, dass in alle 3 Zellen der gleiche Wert geschrieben wird.
In einer Test Datei konnte ich so einen ähnlichen Code zum laufen bekommen, allerdings musste ich diesen Abwandeln, da es hier zu einer Endlosschleife kam.
Unterumständen gibt es hier auch eine Möglichkeit dies über Excel direkt zu realisieren.