VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Einlesen von Spaltenköpfen in UserForm-ListBox

Gruppe

Dialog

Bereich

ListBox

Thema

Einlesen von Spaltenköpfen in UserForm-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

    


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