Macro berichtigen
15.01.2015 15:02:33
toteitote
Kann mir jemand helfen, die hervorgehobene Codepassage zu berichtigen?
Seitdem ich das Datumslabel _Today geändert habe läuft das Macro nichtmehr..
https://www.herber.de/bbs/user/95027.xlsm
Sub Kopieren()
Dim qR As Range
Dim dR As Range
Dim gR As Range
Dim zR As Range
Set qR = Application.Names("_SleepTime").RefersToRange
Set dR = Application.Names("_DayString").RefersToRange
Set gR = Application.Names("_Today").RefersToRange
Set zR = dR.Find(gR)
If Not zR Is Nothing Then
qR.Copy zR.Offset(1, 0)
End If
End Sub