Anhand des folgenden Beispiels möchte ich Ihnen die manuelle Erstellung eines Makro mit Code in MS Project 2013 demonstrieren.
Im Beispiel werden der erste und letzte Vorgang in einer MessageBox angezeigt:
Ausgangssituation in Project:
Um das Makro manuell zu erstellen, gehen Sie bitte folgende Schritte durch:
-> Ansicht -> Makros -> Visual Basic -> Rechtsklick Module -> Einfügen -> Modul
-> den folgenden Code kopieren und anschließend speichern
------------------------------------------------
Option Explicit
Sub VorgaengeTeilweise()
Dim p As Project
Dim t As Task
Dim count As Integer
count = 1
Set p = ActiveProject
Dim str1 As String
For Each t In p.Tasks
If Not t Is Nothing Then
If count = 1 Then
str1 = str1 + t.Name + ", "
ElseIf count = p.Tasks.count Then
str1 = str1 + t.Name
End If
count = count + 1
End If
Next t
MsgBox str1
End Sub
------------------------------------------------
Wenn Sie das Makro umbenennen möchten, öffnen Sie das Makro und ändern auf der linken Seite unter "Eigenschaften"
den Namen.
Nun führen Sie das Programm in Project aus.
In der MessageBox Maske wird das Ergebnis angezeigt:
Um das Makro im Menüband anzupassen, sehen Sie bitte die Vorgehensweise in unserem Blog nach.
Vielen Dank für Ihr Interesse an meinem Blogeintrag.
Gerne beantworte ich Ihnen persönlich weitergehende Fragen zu diesem Thema. Kontaktieren Sie mich einfach über unser Kontaktformular oder per E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!/gs
Ala Novikava Software Developer |