HERBERS Excel-Forum - die Dialoge

Bewerten Sie hier bitte das Excel-Portal

Thema: Spaltenköpfe editieren

Download Beispiel-Arbeitsmappe

Home

Die Spaltenköpfe werden in die ListBox eingelesen. Über eine TextBox kan editiert werden. Spaltenköpfe editieren

Spaltenköpfe editieren

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Spaltenköpfe einlesen
Ablaufbeschreibung:
- Spaltenkpfe einlesen

Code:


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

Prozedur: lstHeader_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Ausgewählten Spaltenkopf in TextBox übernehmen
Ablaufbeschreibung:
- Ausgewählten Spaltenkopf in TextBox übernehmen

Code:


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

Prozedur: cmdEdit_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: TextBox-Inhalt in Tabellenblatt schreiben
Ablaufbeschreibung:
- TextBox-Inhalt in Tabellenblatt schreiben

Code:


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