VBA-Programmierung in Microsoft Excel

Wahlweise Elemente in UserForm-Text- oder -ListBox markieren

ClassModule: frmMarkieren

Private Sub cmdListMarkieren_Click()
   Dim iCounter As Integer
   lstMarkieren.SetFocus
   For iCounter = 0 To lstMarkieren.ListCount - 1
      If lstMarkieren.List(iCounter) = txtMarkieren.Text Then
         lstMarkieren.ListIndex = iCounter
         Exit Sub
      End If
      lstMarkieren.ListIndex = -1
   Next iCounter
End Sub

Private Sub cmdTextMarkieren_Click()
   With txtMarkieren
      .SetFocus
      .SelStart = 0
      .SelLength = .TextLength
   End With
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim iMonth As Integer
   For iMonth = 1 To 12
      lstMarkieren.AddItem Format( _
         DateSerial(Year(Date), iMonth, 1), "mmmm")
   Next iMonth
End Sub

StandardModule: basMain

Sub CallForm()
   frmMarkieren.Show
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und ListBox