Kapazitätsplanung mit Datum
Kisselstein
ich versuche gerade mir ein Exceliste für einen Kapazitätsabgleich zu bauen.
Ich möchte ein Start und ein Enddatum eingeben und dann soll ein Marko anhand dieser zwei Daten zu dem Entsprechendem Datum auf der Zeitlinie die jeweiligen Zellen farbig markieren und eine 1 in die Zelle Schreiben.
Ich habe bereits im Forum gesucht und etwas gefunden was ich bereits angepasst habe.
Ich schaffe es anhand von Kalenderwochen die Zellen mit dem Makro zu füllen. Aber leider nicht das ganze mit einem Kompletten Datum.
Vielleicht könnte mich jemand im Forum unterstützen oder ein paar Tipps geben.
Vielen Dank schon mal
Hier der Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iCol As Integer, iRow As Integer
If Target.Column >= 3 Then Exit Sub
iRow = Target.Row
iCol = Cells(iRow, 3).Interior.ColorIndex
If CDbl(Cells(iRow, 1)) = 0 Then
Range(Cells(iRow, 4), Cells(iRow, 255)).Interior.ColorIndex = xlNone
Range(Cells(iRow, 4), Cells(iRow, 255)).Value = ""
Exit Sub
End If
Range(Cells(iRow, 4), Cells(iRow, 255)).Interior.ColorIndex = xlNone
Range(Cells(iRow, 4), Cells(iRow, 255)).Value = ""
Range(Cells(iRow, Cells(iRow, 1) + 3), Cells(iRow, Cells(iRow, 2) + 3)).Interior.ColorIndex = _
iCol
Range(Cells(iRow, Cells(iRow, 1) + 3), Cells(iRow, Cells(iRow, 2) + 3)).Value = "1"
End Sub
Und eine Beispieldatei
https://www.herber.de/bbs/user/53841.xls