automatisch ablaufende Makros bei Eingaben im Blatt Risikobeurteilung

Automatisch ablaufende Makros werden nur dann aktiviert, wenn sie im Blatt “Setup” angeschaltet sind.

Zusätzlich ist ein Limit eingebaut. Wenn mehr Zellen als im Blatt “Setup” in macro_RA_maxCellsChange eingestellt sind gleichzeitig geändert werden (z.B. Einfügen von großen kopierten Bereichen) werden keine automatischen Makros ausgeführt, um den Computer nicht zu blockieren.

Für alle Spalten wird:

• die dort eingegebene Information in das Blatt “Risikobeurteilung Log” übertragen.
  → Log_Changes
• in Comment-dateOfChange (Datum der letzten Änderung - FN) der aktuellen Spalte die aktuelle Zeit gesetzt.
  → Set_Date_of_Lastchange
  Dies gilt nicht für Änderungen in der Spalte Comment-dateOfChange selbst.
• bei Drop-Down-Listen der ausgewählte Inhalte in Formeln umgewandelt, damit sie beim Umschalten der Sprache mit umgeschaltet werden können.
  → GetFormulaFromList

Einzelne Spalten lösen bei Änderung der Inhalte zusätzliche Makros aus, die dann im Hintergrund laufen:

• EHSR-Exists (Gefährdung vorhanden - I)
  • MandatoryEHSR
  • ChangeEHSR
• Hazard-12100-group (Gruppe - AE)
  • ValueLeftOfReference
• *-Document-number (Nummer - Q, AM, CO)
  *: ProductLimits, Hazard, RiskReduction
  • StandardNumberComplete
  • StandardNameSelect
  • StandardTypeSelect
  • ResetDocumentNumberValidations
• Hazard-PhasesOfLife-all (Alle - BB)
  • Enter_All_Lifecycles
• RiskEstimation-hazardCovered (Gefährdung ist behandelt? - FH)
  • CheckEHSRcovered
• *-standard (Normvorgabe - BQ, EJ)
  *: RiskEvaluation, RiskEvaluationAfter
  • copyStandardRiskValue
• *-13849-* (S, F, P, W - BS-BV+EL-EO)
  • calculateNew13849Value
• *-62061-* (S, F, P, W - BY-CB+ER-EU)
  • calculateNew62061Value
• *-882e-* (Severity, Probability - CE, CF, EX, EY)
  • calculateNew882eValue
• RiskReduction-Solution-Information-srpcs (SRP/CS / SRECS - DS)
  • recalculateRiskValue

Modul: Sheet_RiskAssessment_Log_Code
Makro: Sub Log_Changes(changedCell As Range)
Schalter: macro_RA_LogChanges

In Spalte A der Risikobeurteilung (UID) wird, wenn diese in der aktuellen Zeile noch leer ist, eine neue Zeilennummer vergeben.

Der Inhalt der übergebene Zelle wird in die Tabelle Table_RA_Log im Blatt Sheet_RiskAssessment_Log (Risikobeurteilung Log) kopiert. Sollte der Inhalt eine Formel sein, wird er als Text “formula = …” gespeichert, so dass in der Tabelle keine ausführbare Formel steht.

Dazu wird in die Tabelle geschrieben:

• zu welcher Zeilen-UID der Inhalt gehört
• zu welchem Spaltennamen der Inhalt gehört
• wann der Inhalt erstellt wurde (aktuelles Datum und Uhrzeit)
• wer den Inhalt erstellt hat (Name des eingeloggten Windowsbenutzers)

Modul: Sheet_RiskAssessment_Rest
Makro: Sub Set_Date_of_Lastchange(cell As Range)
Schalter: macro_RA_SetDateOfLastChange

Wenn in den Spalten der Tabelle Table_RiskAssessment außerhalb der Spalte FN eine Eingabe vorgenommen wird, wird in die Spalte FN das aktuelle Datum gespeichert.

Modul: ListItemToFormula
Makro: Sub GetFormulaFromList(header As String, Target As Range)
Schalter: macro_PD_ListToFormula, macro_RA_ListToFormula