Thema Datum  Von Nutzer Rating
Antwort
Rot Problem mit Jahreswechsel
 14.12.2010 20:07:11 Thomas89
NotSolved
14.12.2010 20:33:04 Severus
NotSolved
14.12.2010 22:40:30 Thomas89
NotSolved

Ansicht des Beitrags:
Von:
Thomas89		 Datum:
14.12.2010 20:07:11		 Views:
1599		 Rating:
     
Antwort:
  Ja
Thema:
Problem mit Jahreswechsel
Guten Tag. In Spalte D einer Excel Tabelle werden Geburtsdaten eingetragen. Dann soll überprüft werden ob der Geburtstag in den nächsten 21 Tagen liegt. Wenn ja, dann soll die Zeile in rot erscheinen. So weit so gut.



Sub Geburtstag()
Dim Geburtsdaten As Range

For Each Geburtsdaten In Sheets("Tabelle1").Range("D2:D8")

Range("A" & Geburtsdaten.Row & ":E" & Geburtsdaten.Row).Interior.ColorIndex = xlNone

If IsDate(Geburtsdaten.Value) Then

Select Case DateSerial(1, Month(Geburtsdaten.Value), Day(Geburtsdaten.Value))
Case DateSerial(1, Month(Now), Day(Now)) To DateSerial(1, Month(Now), Day(Now) + 21)
Range("A" & Geburtsdaten.Row & ":E" & Geburtsdaten.Row).Interior.Color = vbRed
End Select

End If

Next

End Sub



Klappt wunderbar aber wird nun z.B. 01.01.1990 als Geburtsdatum eingetragen, wird dies nicht rot markiert, obwohl der Geburtstag in den nächsten 21 Tagen ist. Das Programm hat irgendwie Schwierigkeiten mit dem Jahreswechsel. Danke im Vorraus.

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
Rot Problem mit Jahreswechsel
 14.12.2010 20:07:11 Thomas89
NotSolved
14.12.2010 20:33:04 Severus
NotSolved
14.12.2010 22:40:30 Thomas89
NotSolved