Gruppe
Dialog
Problem
Wie kann ich einen in einer UserForm-ListBox selektierten Wert nach Drücken einer Schaltfläche in ein Tabellenblatt eintragen lassen?
ClassModule: frmAuswahl
Private Sub cmdAbbrechen_Click()
Unload Me
End Sub
Private Sub cmdEintragen_Click()
Dim iRow As Integer
If IsEmpty(Cells(1, 1)) Then
iRow = 1
Else
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Cells(iRow, 1) = lstAuswahl.Value
End Sub
Private Sub UserForm_Initialize()
Dim iCounter As Integer
For iCounter = 1 To 12
lstAuswahl.AddItem Format( _
DateSerial(1, iCounter, 1), "mmmm")
Next iCounter
End Sub
StandardModule: basMain
Sub CallForm()
frmAuswahl.Show
End Sub