Gruppe
Dialog
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?
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