Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wahlweise Elemente in UserForm-Text- oder -ListBox markieren

Gruppe

ListBox

Problem

Wie kann ich in einer UserForm nach Betätigung von Schaltflächen wahlweise den Text in einer TextBox oder ein Element in einer ListBox markieren?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

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