Termine farbig visualisieren und Titel in Zelle
02.12.2019 07:44:20
Thomas
ich wollte mal fragen ob mein Vorhaben möglich ist.
Mit dem unteren Code werden Termine farbig visualisiert. Jetzt würde ich gerne den Titel der Termine (Spalte A) mit in die farbigen Zelle geschrieben bekommen.
D.H. Termin 1 ist Rot und in den Zellen des farbigen Block soll dann Termin 1 in jeden Tag stehen.
Wenn in der Userform1 Termine farbig ausleiten betätigt wird, findet die Visualisierung statt.
Würde das funktionieren? Und wenn Ja, könnte mir bitte einer sagen wie?
Private Sub CommandButton1_Click()
Dim Startdatum As Date, Zieldatum As Date
Dim Zelle As Range
Dim Spalte As Long, Zeile As Long, Farbe As Long
Farbe = 3
With Sheets("Tabelle1") 'Anpassen
For Zeile = 2 To 10
.Rows(Zeile).Interior.ColorIndex = xlNone
Startdatum = .Cells(Zeile, 2).Value
Zieldatum = .Cells(Zeile, 3).Value
For Spalte = 4 To 69 'Each Zelle In .Rows(1)
If IsDate(.Cells(1, Spalte).Value) = True Then
' statt Bsp.-weise = Startdatum And .Cells(1, Spalte).Value
https://www.herber.de/bbs/user/133528.xlsm
Würde mich über euer Feedback freuen.
Danke und Gruß
Thomas