Hallo Frieder,

hab mal den Teil deines Codes etwas entrümpelt:

For Each cell In datumswerte
   If IsDate(cell.Value) Then
      phasenbezeichnung = ""
      Z_Spalte = cell.Column
      Z_Zeile = cell.Row
      'Text bestimmen
      Select Case Z_Spalte
         Case 2
            phasenbezeichnung = "Entw"
         Case 3
            phasenbezeichnung = "Test"
         Case 4
            phasenbezeichnung = "Prod."
         Case 5
            If IsDate(Cells(Z_Zeile, 4).Value) Then 
               phasenbezeichnung = "Betrieb " & Cells(Z_Zeile, 1).Value
            End If
      End Select
      If phasenbezeichnung <> "" Then
         ' Zellenbestimmung
         offset = 6
         spalte = DateDiff("d", DateSerial(jahr, 1, 1), cell.Value) + 1
         If DateSerial(jahr + 1, 1, 1) < cell.Value Then
            offset = 372
            spalte = DateDiff("d", DateSerial(jahr + 1, 1, 1), cell.Value) + 1
         End If
         Cells(cell.Row, offset + spalte).Value = phasenbezeichnung
         ' Farbe setzen
         'If IsDate(Cells(Z_Zeile, Z_Spalte + 1).Value) And IsDate(Cells(Z_Zeile, Z_Spalte).Value) Then
            For i = 0 To DateDiff("d", Cells(Z_Zeile, Z_Spalte).Value, Cells(Z_Zeile, Z_Spalte + 1).Value) Step 1
               Select Case Z_Spalte
                  Case 2
                     c = 40
                  Case 3
                     c = 36
                  Case 4
                     c = 35
                  Case 5
                     c = 24
               End Select
               Cells(Z_Zeile, offset + spalte + i).Interior.ColorIndex = c
            Next
         'End If

ich hab es aber nicht testen können!

Gruß Detlev