Der Code funktioniert an folgender Stelle nicht (hab es fett markiert)
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
|