VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Wert aus UserForm-ListBox in Tabellenblatt eintragen

Gruppe

Dialog

Bereich

ListBox

Thema

Wert aus UserForm-ListBox in Tabellenblatt eintragen

Problem

Wie kann ich einen in einer UserForm-ListBox selektierten Wert nach Drücken einer Schaltfläche in ein Tabellenblatt eintragen lassen?

Lösung

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




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

    


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