VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Start- und Enddatum abfragen und markieren

Gruppe

DatumZeit

Bereich

Datum

Thema

Start- und Enddatum abfragen und markieren

Problem

Wie kann ich ein Start- und Enddatum per InputBox abfragen und die beiden Daten dann farbing markieren lassen?

Lösung

Formel für die bedingte Formatierung: =UND(A1>=$D$1;A1<=$D$2)




ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
  frmHWH.Show
End Sub

StandardModule: modMain

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Warten()
  Dim i%
  For i = 1 To 10
    frmHWH.Label1.Caption = i
    frmHWH.Repaint
    Sleep 1000
  Next i
End Sub

ClassModule: frmHWH

Private Sub UserForm_Activate()
  frmHWH.Repaint
  Call Warten
  Unload Me
  ThisWorkbook.Close savechanges:=False
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Datum