Thema: Datumsreihe markieren

Home

Abbildung - Datumsreihe markieren

Prozedur: cmdOK_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Datumsreihe markieren
Ablaufbeschreibung:
- Variablendeklaration
- Startdatum in Spalte A ermitteln
- Enddatum in Spalte A ermitteln
- Datumsreihe in Spalte B markieren

Code:


Private Sub cmdOK_Click()
   Dim rngStart As Range, rngEnd As Range
   Set rngStart = Columns(1).Find( _
      what:=DateValue(txtStart.Text), LookIn:=xlFormulas)
   Set rngEnd = Columns(1).Find( _
      what:=DateValue(txtEnd.Text), LookIn:=xlFormulas)
   Columns("B").Clear
   Range(rngStart, rngEnd).Offset(0, 1).Value = "X"
End Sub