SHARE
TWEET

Untitled

a guest Jul 19th, 2019 64 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim Inhalt, Trennzeichen As String
  2. Dim i, Werte As Integer
  3. Dim ArrDaten(0 To 248, 0 To 248) As Double
  4. Dim OriginalTaskID As Long
  5. Dim Tsk As Task
  6. Dim LastTaskRow As Long
  7.  
  8.  
  9. LastTaskRow = ActiveProject.Tasks.Count
  10. Trennzeichen = "_"
  11.  
  12.  
  13.  
  14. 'Von - Bis Spalten
  15. For i = 0 To LastTaskRow - 1
  16.  
  17.     'definiere Zeile mit schleife
  18.     SelectTaskField Row:=i + 1, Column:="Sammelvorgang", RowRelative:=False
  19.     Inhalt = ActiveCell
  20.  
  21.     'Wenn Zelle = Ja dann Fromatieren
  22.     If Inhalt = "Ja" Then
  23.         GanttBarFormatEx MiddleShape:=5, righttext:="text29"
  24.     End If
  25.  
  26. Next i
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top