Excel-VBA-Strich nach datum einfügen
21.09.2022 10:51:16
Blue-Whirlwind
Private Sub Workbook_Open()
Dim shp As Shape, rng As Range
With Sheets(1)
Set rng = .Cells(1, Application.Match(Year(Date), .Rows(1), 0) + Month(Date) - 1)
.Shapes("Straight Connector 2").Left = rng.Left + rng.Width / 2
End With
End Sub
Kann mir jemand Helfen wie ich diesen code anpassen muss damit dann bei mir die Linie am aktuellen Datum erscheint?
Danke schon mal für euere Hilfe.
Gruß
Whirlwind