Sub gantt_chart()
Dim lastrow, lastcol As Long
lastrow = Range("a65536").End(xlUp).Row
lastcol = Range("A:A").End(xlToRight).Column
Dim i, j As Integer
For j = 11 To lastcol
For i = 18 To lastrow
If Cells(15, j).Value >= Cells(i, 5).Value And Cells(15, j).Value <= Cells(i, 6).Value Then
Cells(i, j).Value = 1
Cells(i, j).Interior.Color = vbRed
Cells(i, j).NumberFormat = ";;;"
Else
Cells(i, j).Value = 0
Cells(i, j).NumberFormat = ";;;"
End If
Next
Next
End Sub
Das wäre mein VBA Vorschlag:
In Zeile 15 stehen die Daten (diese lasse ich mir anhand einer Formel vom Startdatum ausgeben: =($C$13-WOCHENTAG($C$13;2)+1) ).
Ab Zeile 18 laufen die Daten und ab Spalte 11 ("K") beginnt die Berechnung und in Spalte E und F stehen die Anfangsdaten, leider funktioniert es nicht.
Außerdem hätte ich es gerne als Change_Funktion...
|