VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Datumsbereich in Abhängigkeit von 3 Kriterien markieren

Gruppe

Feature

Bereich

Bedingt

Thema

Datumsbereich in Abhängigkeit von 3 Kriterien markieren

Problem

In Zeile 1 befinden sich Kopfzeilen, unterhalb davon Datumsreihen. In den Zellen H1:H3 befinden sich als Kriterien Kopfzeilenwert, Start- und Enddatum. Bei Änderungen der Eintragungen soll sich die Markierung des Datumsbereiches den geänderten Daten anpassen.

Lösung

Formel für die bedingte Formatierung: =UND(A$1=$H$1;A2>=$H$2;A2<=$H$3)




ClassModule: frmDate

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Dim datStart As Date, datEnde As Date
   Dim iRow As Integer
   datStart = DateValue(txtStart.Text)
   datEnde = DateValue(txtEnde.Text)
   For iRow = 1 To datEnde - datStart + 1
      Cells(iRow, 1) = datStart + iRow - 1
   Next iRow
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmDate.Show
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Feature und Bedingt