X

Vielen Dank, dass Sie sich für unsere Dienstleistungen interessieren. Leider sind Sie auf einer veralteten Seite gelandet. Das sollte nicht vorkommen.

Besuchen Sie gerne unsere aktualisierte Webseite.

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:

 

Vorgngeliste

 

 

Um das Makro manuell zu erstellen, gehen Sie bitte folgende Schritte durch:

 

-> Ansicht -> Makros -> Visual Basic -> Rechtsklick Module -> Einfügen -> Modul

 

Modul_einfgen

 

-> 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:

 

Vorgnge_erster_und_letzter

 

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

Bewertung: 1 / 5

Stern aktivStern inaktivStern inaktivStern inaktivStern inaktiv
 
Go to Top