Microsoft Office Tutorials and References
In Depth Information
4.2 Operative Instrumente
Abbildung 4.70: Diese Outlook-Nachrichten generiert das Makro aus der UserForm
Listing 4.5: Das VBA-Makro kopiert Tätigkeitsformular und versendet es per Mail im Anhang
Private Sub cmdOK_Click()
Dim shPersonal As Worksheet, i As Integer
Dim ol As Object, mail As Object
Dim strMitarbeiter As String, strPersNr As String, strKostenstelle As String
Dim strFragebogen As String, strAbteilung As String, shMail As String
Dim strMailadresse As String, strMail As String
Set shPersonal = ThisWorkbook.Worksheets("Personal")
' Schleife für alle markierten Mitarbeiter
For i = 0 To Me.lstPersonal.ListCount - 1
If Me.lstPersonal.Selected(i) = False Then GoTo nextMA
' Fragebogen kopieren
Sheets("Formular Tätigkeitsanalyse").Copy
' Fragebogen mit Daten füllen
With shPersonal.Range("Personaldatenbank")
strMitarbeiter = .Cells(i + 1, 1)
strPersNr = .Cells(i + 1, 2)
strAbteilung = .Cells(i + 1, 3)
strKostenstelle = .Cells(i + 1, 4)
strMailadresse = .Cells(i + 1, 6)
strFragebogen = Me.txtFormular.Value
End With
With ActiveSheet
.Range("E1") = strPersNr
.Range("E2") = strMitarbeiter
.Range("E3") = strAbteilung
End With
' Fragebogen als Datei speichern und schließen
Search JabSto ::




Custom Search