Hallo Leute!
Ich habe folgendes Problem.
Ich möchte ein Makro in Word schreiben.
Jetzt sieht es so aus, das in der ersten Spalte und zweiten Zeile ein Datum von mir eingetragen wird, z.b. 24.07.2010.
In der ersten Spalte und Zeile soll der 24.07.2010 + 60 Tage, also der 24.09.2010 automatisch ausgegen werdem. Wenn das aktuelle Datum, annahme der 30.08.2010 kleiner als 24.09.2010, dann soll sich der 24.09.2010 grün färben. Wenn aktuelles heutiges Datum größer als das Datum in der ersten Spalte und Zeile dann rot färben.
So weit bin ich gekommen:
Sub Zieldatum()
Dim z
'anpassen
Dim sZeile: sZeile = 2
Dim sSpalte: sSpalte = 1
Dim aDatum
'
Dim tRange As Range
Set tRange = ActiveDocument.Tables(1) _
.Cell(sZeile, sSpalte).Range
With tRange
.Font.Color = wdColorRed
End With
'
aDatum = ActiveDocument.Tables(1) _
.Cell(sZeile, sSpalte).Range.Text
'Steuerzeichen abschneiden
aDatum = Left(aDatum, Len(aDatum) - 2)
'MsgBox aDatum
'
Dim zDatum As Date
zDatum = DateAdd("d", 30, aDatum)
'MsgBox zDatum
'
If zDatum > aDatum Then
Set tRange = ActiveDocument.Tables(1) _
.Cell(sZeile, sSpalte).Range
With tRange
.Font.Color = wdColorGreen
End With
End If
End Sub
Vieleicht kann mir jemand weiterhelfen.
Komm nicht weiter.
Schon mal Dank im Voraus! |