Gruppe
Dialog
Bereich
ListBox
Thema
Wahlweise Elemente in UserForm-Text- oder -ListBox markieren
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