---

Hallo Leute!

Ich bräuchte eure Hilfe mein Erstellen eines VBA Codes in Project 2013, da ich selbst nicht so wirklich voran komme damit! Vielen Dank schonmal im Vorraus!

Ziel ist es drei Spalten zu haben,
in der 1. Spalte soll der "Abarbeitungsstand-Ist" für jeden Vorgang von Hand eingetragen werden.
In der 2. Spalte soll der "Abarbeitungsstand-Soll" anhand dem eingetragen Anfang und Ende und dem aktuellen Datum für jeden Vorgang in Prozent berechnet werden.
In der 3. Spalte soll der "Abarbeitungsstand-Delta" in Form von Ampeln ausgegebenen werden. Grüne Ampel bedeutet Differenz liegt unter 20%, Gelbe Ampel bedeutet Differenz liegt zwischen 20-40% und Rote Ampel bedeutet die Diferrenz ist über 40%.

Ich wäre euch sehr dankbar, wenn Ihr mir weiter helfen könntet!
Gruß!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jasko777,

dafür braucht es nicht unbedingt VBA, das geht auch mit Bordmitteln. Wie sieht denn der Datum/Anfang/Ende-Eintrag aus? Stehen die im gleichen Tabellenblatt?

Thema Ampel siehe hier.

------------------
Grüße aus Frangn
Rob

Habe keine Angst etwas Neues im Leben auszuprobieren.
Denke einfach daran, dass Amateure die Arche erbaut haben und Profis die Titanic.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Jasko777:
Ich bräuchte eure Hilfe mein Erstellen eines VBA Codes in Project 2013, da ich selbst nicht so wirklich voran komme damit! Vielen Dank schonmal im

---

Microsoft Project 2013 ist nicht gleich Excel 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ups, da hab ich doch glatt was überlesen. 

------------------
Grüße aus Frangn
Rob

Habe keine Angst etwas Neues im Leben auszuprobieren.
Denke einfach daran, dass Amateure die Arche erbaut haben und Profis die Titanic.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja die ganzen Daten befinden sich in einer Project-Datei.

Ich habe mittlerweile auch einen Code geschrieben der bei einem einfachen Beispiel auch funktioniert. Jedoch soll es auch bei Dateien mit über 7000 Vorgängen eingesetzt werden, da rechnet er mir ewig und kommt zu keinem Ende.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hier ist mal mein Code den ich geschrieben haben. Könnte mir vlt jemand helfen und mir sagen, wie ich es besser machen kann, damit ich diesen Code auch bei Dateien mit über 100 MB also so knapp 7000 Vorgängen anwenden kann.

Sub Soll_Ist_2013()
 
Dim statusdatum As Date

statusdatum = InputBox("Bitte Statusdatum eingeben!", "Statusdatum") 'Mit dem Befehl kann das Statusdaum auch eingegeben werden

'Hier werden die benötigten Variablen deklariert
Dim mTask As Task
Dim proj As Project
Dim tageDone As Integer
Dim aSoll As Integer
Dim aIst As Integer
Dim dauer As Integer
Dim differenz As Integer

'Hier muss der Dateiname angepasst werden
Set proj = Application.Projects("Test1.mpp")

On Error Resume Next 'Dient zur Fehlerbehandlung

'Hier wird die Spalte "Abarbeitungsstand Soll" gefüllt
For Each mTask In proj.Tasks
mTask.Number6 = 0

If mTask.Finish < Date Then
aSoll = 100
mTask.Number6 = aSoll
ElseIf mTask.Start > Date Then
aSoll = 0
mTask.Number6 = aSoll
Else
tageDone = 0
tageDone = DateDiff("d", mTask.Start, Date)
dauer = 0
dauer = mTask.Duration / 480
aSoll = tageDone / dauer * 100
mTask.Number6 = aSoll
End If

Next

'Hier wird die Spalte "Abarbeitungsstand Ist" gefüllt bzw. die Ampeln auf Grün/Gelb/Rot gesetzt
For Each mTask In proj.Tasks
aIst = 0
aIst = mTask.Number5
aSoll = 0
aSoll = mTask.Number6
differenz = 0
differenz = aSoll - aIst
'mTask.Text1 = " "

If differenz <= 5 Then
'mTask.Text1 = "Grüne Ampel"
mTask.Number7 = 0 '0 steht für Grüne Ampel
ElseIf differenz > 5 And differenz <= 20 Then
'mTask.Text1 = "Gelbe Ampel"
mTask.Number7 = 3 '3 steht für gelbe Ampel
Else
'mTask.Text1 = "Rote Ampel"
mTask.Number7 = 6 '6 steht für rote Ampel
End If

Next

End Sub

Vielen Vielen Dank für eure Hilfe!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP