Zeitlinie an Zelle
21.03.2006 15:36:40
Thomas
ich brauche bitte Hilfe bei folgendem Problem. Der folgende Code stammt aus dem Archiv, passt so aber leider nicht bei mir, und ich bekomme ihn nicht umgestellt. Vielleicht hatjemand eine Idee. Der Code bringt eine Linie an das heutige Datum. Bei mir soll die Linie aber an die Zelle, die nicht das Datum enthält sondern den gleichen Wert wie Zelle C1.
Sub Zeitlinie()
Dim zelleHeute As Range
With ThisWorkbook.Worksheets("Tabelle2")
Set zelleHeute = .Range("Datumswerte").Find(DateValue(Now), LookIn:=xlFormulas)
If Not zelleHeute Is Nothing Then
.Shapes("Zeitlinie").Left = zelleHeute.Left + zelleHeute.Width / 2
End If
End With
End Sub
Vielen Dank für Hilfe
Thomas