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
Der Code Funktioniert auch soweit, aber leider befindet sich das Datum in meiner Tabelle in der Zeile 6 von Spalte F-ANI im Format TT.MM.JJ.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