Gruppe
DatumZeit
Problem
Wie kann ich ein Start- und Enddatum per InputBox abfragen und die beiden Daten dann farbing markieren lassen?
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