Thema Datum  Von Nutzer Rating
Antwort
30.08.2010 09:17:56 Kikan
NotSolved
30.08.2010 12:18:31 Severus
NotSolved
Rot Aw:Aw:Datum definieren und färben
 30.08.2010 14:14:39 kikan
NotSolved

Ansicht des Beitrags:
Von:
kikan		 Datum:
30.08.2010 14:14:39		 Views:
996		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Datum definieren und färben
Vielen Dank!!!
Funktioniert wunderbar!!


Severus schrieb am 30.08.2010 12:18:31:

Kikan schrieb am 30.08.2010 09:17:56:

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!



Sub Zieldatum()
Const ZEILE As Long = 2
Const SPALTE As Long = 1
Dim aDatum As Variant
Dim zDatum As Date
Dim tRange As Range

Set tRange = ActiveDocument.Tables(1) _
.Cell(ZEILE, SPALTE).Range
With tRange
.Font.Color = wdColorRed
End With

aDatum = ActiveDocument.Tables(1) _
.Cell(ZEILE, SPALTE).Range.Text
aDatum = Left(aDatum, Len(aDatum) - 2)
aDatum = CDate(aDatum)

zDatum = DateAdd("d", 30, aDatum)
'Vergleich mit aktuellem Datum, da zDatum ja immer größer als aDatum ist
If zDatum > Date Then
Set tRange = ActiveDocument.Tables(1) _
.Cell(ZEILE, SPALTE).Range
With tRange
.Font.Color = wdColorGreen
End With
End If
Set tRange = Nothing
End Sub

Severus

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
30.08.2010 09:17:56 Kikan
NotSolved
30.08.2010 12:18:31 Severus
NotSolved
Rot Aw:Aw:Datum definieren und färben
 30.08.2010 14:14:39 kikan
NotSolved