MBT-RAT: Risikobeurteilung mit Excel - Verwendete "Makros"

Makros

In der Software MBT-RAT sind folgende Makros enthalten:

Hinweis:

Sollten Sie der Datei nicht vertrauen, oder die Datei aus einer anderen Quelle zugeschickt bekommen, überprüfen Sie bitte die in der Datei enthaltenen Makros.

Die von uns programmierten Makros greifen auf keine externen Daten zu. Im Zweifel vergleichen Sie bitte eine Datei von einer anderen Quelle mit unserer Originaldatei.

To top

Sub Select_Language()

Makros bearbeiten

Makros bearbeiten

Dieses Makro steuert die Sprachauswahl.

Wenn Sie neue Sprachen einfügen, können sie hier den Quellcode 2 mal unter:

            'Put the current select Picture in the Back, so we see which language is active and which is hidden
            'also, move the pictures around
            'if you enter more languages, put more pictures...
            'Pictures from Microsoft.com

anpassen, um Ihre Flaggen mitzubewegen. Ansonsten ändert sich die Flaggenfolge nicht, bis nicht wieder Deutsch ausgewählt ist.

 

 

To top

Sub Neue_Zeile()

Dieses Makro fügt eine Zeile ein und kopiert die wichtigsten Eigenschaften der Zeile darüber.

To top

Sub Zeile_Löschen()

Dieses Makro prüft, ob die markierte Zeile löschbar ist und warnt dann noch einmal vor Datenverlust. Danach wird die Zeile gelöscht.

Sie können die Zeilen natürlich auch "per Hand" löschen, sind dann aber nicht vor Fehlbedienung geschützt.

To top

Sub Create_Standard_list()

Dieses Makro kopiert die verwendeten Normen aus dem Tabellenblatt "Risikobeurteilung" in das Blatt "Projektdaten" und löscht Mehrfachnennungen. Damit haben Sie einfach eine Liste von angewandten Normen. Welche Sie davon komplett einhalten müssen Sie aber noch selber entscheiden.

To top

Private Sub Worksheet_Change(ByVal Target As Range)

Dieses Makro überwacht die Tabelle Table_RiskAssessment auf Änderungen in den Zellen.

Entsprechend der geänderten Zellen kann

  • Sub Enter_All_Lifecycles
    oder
  • Sub Stop_Hazard_is_done

ausgelöst werden.

Zusätzlich wird immer

  • Sub Log_Changes
  • Sub Set_Date_of_Lastchange

ausgeführt.

Sub Enter_All_Lifecycles(Target As Range) in Table_RiskAssessment

Dieses Makro füllt die Lebensphasen mit "x" auf, wenn "Alle" mit "x" oder "X" belegt ist.

Wir haben dies über ein Makro geregelt, um zu vermeiden, dass Formeln durch Überschreiben gelöscht werden und es bei späteren Anpassungen Ihrer Daten zu Problemen kommt.

To top

Sub Stop_Hazard_is_done(Target As Range) in Table_RiskAssessment

Dieses Makro überwacht die letzte Spalte. Wenn Sie hier angeben, dass Sie die Spalte fertig bearbeitet haben, wird geprüft

  • ob die Risikominderung bewertet wurde

und bei erforderlicher weiterer Minderung

  • ob Sie eine Haupt- und Unternummer vergeben haben
    und
  • ob Sie die Folgemaßnahme angelegt haben

Dies soll Sie davor schützen, dass Sie Zeilen "Abhaken" in denen noch Aufgaben offen sind.

Sub Log_Changes(Target As Range) in Table_RiskAssessment

Dieses Makro

  • Überträgt die Änderung in das Blatt "Risikobeurteilung Log"
  • Hängt Nutzer und Datum an die übertragene Änderung
  • Trägt eine Zuordnung in die Reihe und Spalte der Änderung ein, falls diese noch nicht vorhanden ist.

Über die Zuordnung ist gewährleistet, dass die Historie auch nach Umsortieren der Tabelle erhalten bleibt.

Sub Set_Date_of_Lastchange(Target As Range) in Table_RiskAssessment

Dieses Makro überprüft ob etwas in der Tabelle Risikobeurteilung geändert wurde. In diesem Fall wird automatisch das Datum der letzten Änderung angepasst.

Wenn beim Ändern das Datum der letzten Änderung der Zeile mit geändert wird, wird dieses Makro nicht ausgelöst. Damit haben Sie die Chance, dieses Datum manuell anzupassen.

Sub Read_RiskAssessment_Log()

Dieses Makro sucht zu der ausgewählten Zelle die entsprechende Zelle in "Risikobeurteilung Log" und zeigt sie in einer Nachricht an.

Sub Clear_RiskAssessment_Log()

Dieses Makro löscht den Inhalt des Blattes "Risikobeurteilung Log" sowie die Zuordnung, die im Blatt "Risikobeurteilung" erstellt wurde. Damit sind alle Spuren der Änderungen beseitigt.