Thema: Einlesen von Spaltenköpfen in UserForm-ListBox

ClassModule: frmHeader

Private Sub cmdEdit_Click()
   Cells(1, lstHeader.ListIndex + 1).Value = txtSelection.Text
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub lstHeader_Click()
   txtSelection.Text = lstHeader.Value
End Sub

Private Sub UserForm_Initialize()
   lstHeader.Column = Range("A1").CurrentRegion.Value
End Sub

StandardModule: basMain

Sub CallForm()
   frmHeader.Show
End Sub

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