Microsoft Office Tutorials and References
In Depth Information
4.1 Strategische Instrumente
Abbildung 4.8: Formular-Auswahlelemente für die Bereichsleitung und die Risikogruppe
in START
Formular versenden per VBA-Makro
Die Schaltfläche im Tabellenblatt START ist mit einem VBA-Makro
verbunden, das die Aufgabe hat, dem gewählten Bereichsleiter eine
Kopie des Formulars als Dateianhang zu schicken. Das Makro wird
dazu zunächst die Daten aus dem Startblatt in Variablen einlesen,
anschließend eine Kopie des Formulars Risikobewertung anlegen
und als Datei im aktuellen Ordner speichern. Den Dateinamen kon-
struiert die Prozedur aus »Fragebogen Risikobewertung_« und dem
Namen des Bereichsleiters. Falls die Datei bereits existiert, wird sie
ohne Rückfrage gelöscht. Anschließend öffnet das Makro eine neue
Nachricht in Outlook, fügt die Mailadresse des Risikoverantwortli-
chen ein und erstellt einen Anhang mit der zuvor angelegten Fragebo-
gendatei. Die Nachricht wird nicht sofort gesendet, damit sie noch
überprüft werden kann.
Drücken Sie (Alt) + (F11) , um den VBA-Editor zu öffnen. Hier finden
Sie das Makro:
Projekt: Risikomanagement.xls
Modul: modFragebogen
Das Makro ist gut dokumentiert, sehen Sie sich den Algorithmus an
und ändern Sie ihn ggf. für eigene Zwecke ab.
Sub FormularSenden()
Dim ol As Object, mail As Object
Dim shStart As Worksheet, strBereichsleiter As String
Dim strFragebogen As String, strGruppe As String, shMail As String
Dim strMailadresse As String, strMail As String, strSender As String
Set shStart = ThisWorkbook.Worksheets("START")
With shStart
Search JabSto ::




Custom Search