Thema: Teil-Strings markieren

Download Beispiel-Arbeitsmappe

Home

Abbildung - Monatsauswahl

Abbildung - Jahresauswahl

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Datumswerte einlesen
Ablaufbeschreibung:
- Der 1. TextBox den 12. des aktuellen Monats zuweisen
- Der 2. TextBox den 25. des aktuellen Monats zuweisen

Code:


Private Sub UserForm_Initialize()
   txtFirst.Text = Format( _
      DateSerial(Year(Date), Month(Date), 12), "dd.mm.yyyy")
   txtSecond.Text = Format( _
      DateSerial(Year(Date), Month(Date), 25), "dd.mm.yyyy")
End Sub

Prozedur: cmdFirst_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Teil-String der 1. TextBox markieren
Ablaufbeschreibung:
- Fokus auf 1. TextBox setzen
- Das 4. Zeichen als Startzeichen festlegen (Index beginnt bei 0)
- Die Zeichenlänge auf 2 festlegen

Code:


Private Sub cmdFirst_Click()
   With txtFirst
      .SetFocus
      .SelStart = 3
      .SelLength = 2
   End With
End Sub

Prozedur: cmdSecond_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Teil-String der 2. TextBox markieren
Ablaufbeschreibung:
- Fokus auf 2. TextBox setzen
- Das 4. Zeichen als Startzeichen festlegen (Index beginnt bei 0)
- Die Zeichenlänge auf 2 festlegen

Code:


Private Sub cmdSecond_Click()
   With txtSecond
      .SetFocus
      .SelStart = 3
      .SelLength = 2
   End With
End Sub