Dim Inhalt, Trennzeichen As String
Dim i, Werte As Integer
Dim ArrDaten(0 To 248, 0 To 248) As Double
Dim OriginalTaskID As Long
Dim Tsk As Task
Dim LastTaskRow As Long


LastTaskRow = ActiveProject.Tasks.Count
Trennzeichen = "_"



'Von - Bis Spalten
For i = 0 To LastTaskRow - 1

    'definiere Zeile mit schleife
    SelectTaskField Row:=i + 1, Column:="Sammelvorgang", RowRelative:=False
    Inhalt = ActiveCell

    'Wenn Zelle = Ja dann Fromatieren
    If Inhalt = "Ja" Then
        GanttBarFormatEx MiddleShape:=5, righttext:="text29"
    End If

Next i