VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Datums-Funktion in If-Anweisung einbinden ?	27.07.2012 07:48:16	Miss Joey
Datums-Funktion in If-Anweisung einbinden ?	27.07.2012 08:15:41	Gast33500
Datums-Funktion in If-Anweisung einbinden ?	27.07.2012 08:17:38	Miss Joey
Datums-Funktion in If-Anweisung einbinden ?	07.08.2012 12:54:13	Dekor
Datums-Funktion in If-Anweisung einbinden ?	08.08.2012 11:17:03	Miss Joey

Ansicht des Beitrags:

Von:
Dekor

Datum:
07.08.2012 12:54:13

Views:
713

Rating:

Antwort:

Thema:
Datums-Funktion in If-Anweisung einbinden ?

Hallo Miss Joey,

Der Vergleich einer Zeichenkette mit einem Datumswert ist immer heikel. Probiers mal mit dem Vergleich "DateValue(Now)" (erzeugt eine Zeichenkette aus dem heutigen Datumswert)

Sub DatumFarbigMarkieren()
   '
   ' Spalte mitDatum auswählen
   Range("D2").Select
   ' Schleife: Makro ausführen bis Leerzelle
   Do Until ActiveCell.Value = ""
      ' Bedingung
      If ActiveCell.Value <= DateValue(Now) Then
         Selection.End(xlToLeft).Select
         Range(Selection, Selection.End(xlToRight)).Select
         With Selection.Interior
            .ColorIndex = 3  'rot
            .Pattern = xlSolid
         End With
      ElseIf ActiveCell.Value >= DateValue(Now) Then
         Selection.End(xlToLeft).Select
         Range(Selection, Selection.End(xlToRight)).Select
         With Selection.Interior
            .ColorIndex = 4 'grün
            .Pattern = xlSolid
         End With
      Else
         Selection.End(xlToLeft).Select
         Range(Selection, Selection.End(xlToRight)).Select
         With Selection.Interior
            .ColorIndex = 6 'gelb
            .Pattern = xlSolid
         End With
      End If

      ' Nächste Zeile/Zelle prüfen
      Selection.End(xlToRight).Select
      ActiveCell.Offset(1, 0).Select
   Loop
End Sub

Gruß Detlev

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
Datums-Funktion in If-Anweisung einbinden ?	27.07.2012 07:48:16	Miss Joey
Datums-Funktion in If-Anweisung einbinden ?	27.07.2012 08:15:41	Gast33500
Datums-Funktion in If-Anweisung einbinden ?	27.07.2012 08:17:38	Miss Joey
Datums-Funktion in If-Anweisung einbinden ?	07.08.2012 12:54:13	Dekor
Datums-Funktion in If-Anweisung einbinden ?	08.08.2012 11:17:03	Miss Joey