Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Einlesen von Spaltenköpfen in UserForm-ListBox

Gruppe

ListBox

Problem

Wie kann ich Spaltenköpfe in eine UserForm-ListBox einlesen und diese dort editieren?

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

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