Private
Sub
UserForm_Initialize()
Dim
lngC
As
Long
For
lngC = 2
To
29
Step
3
ComboBox1.AddItem Cells(4, lngC)
ComboBox2.AddItem Cells(4, lngC)
Next
lngC
With
Me
.ListBox1
.ColumnCount = 5
.ColumnWidths =
"2cm;1,5cm;0;0;1,5cm;1,5cm;1,5cm;0"
Label5.Caption =
""
ComboBox2.Visible =
False
AwSpende.Visible =
False
ComboBox3.Visible =
False
TextBox5.Visible =
False
ComboBox4.Visible =
False
TextBox6.Visible =
False
End
With
End
Sub