Zeitstrahl per VBA
27.11.2019 10:00:43
Thomas
ich schaff es leider nicht den VBA-Code so umzuschreiben, das er für mich passt.
Der Code visualisiert mir ein Anfangsdatum und Enddatum als farbigen Block.
Ich würde gern mehrere Termine in einer Zeile haben mit unterschiedlichen Farben. Nicht wie in dem Code das er es untereinander das macht.
Außerdem markiert er nicht das Anfangsdatum(z.B.: 1.1.19) sondern fängt dann bei 2.1.19 an, das macht er auch beim Enddatum. Das hätte ich gerne, das er auch beim eingegebene Datum anfängt.
Würde mich sehr über eure Hilfe freuen.
Vielen Dank im Voraus.
Viele Grüße
Thomas
Private Sub CommandButton1_Click()
Dim Startdatum As Date
Dim Zieldatum As Date
Dim Zelle As Range
Dim Spalte As Long
Dim Zeile As Long
With Sheets("Tabelle1")
For Zeile = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row
.Rows(Zeile).Interior.ColorIndex = xlNone
Startdatum = .Cells(Zeile, 2).Value
Zieldatum = .Cells(Zeile, 3).Value
For Spalte = 7 To 69 'Each Zelle In .Rows(1)
If IsDate(.Cells(1, Spalte).Value) = True Then
If .Cells(1, Spalte).Value > Startdatum And .Cells(1, Spalte).Value https://www.herber.de/bbs/user/133457.xlsm