Optimierung
03.04.2005 21:45:21
Ramses
Hallo
Oje,... also da kann man wirklich optimieren :-)
Diese Zeilen ersetzen deinen kompletten bisherigen Code
Private Sub UserForm_Initialize()
Dim i As Byte
If Frame1.Visible = True Then
With Me.Combobox7
For i = 1 To 21
.AddItem Format(i, "00000")
Next i
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 0
With Me.ComboBox9
.AddItem "0"
.AddItem "1"
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 0
End With
Me.TextBox129 = Format(Date, "ddmmyy")
End If
If Frame13.Visible = True Then
With Me.Combobox6
For i = 1 To 9
.AddItem Format(i, "00000")
Next i
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 0
End With
With Me.Combobox10
For i = 1 To 100
.AddItem i
Next i
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 0
End With
'ComboBox11
With Me.Combobox11
For i = 1 To 9
.AddItem i
Next i
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 0
End With
'ComboBox12
With Me.Combobox12
For i = 1 To 8
.AddItem i
Next i
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 0
End With
'ComboBox14
With Me.Combobox14
For i = 1 To 5
.AddItem i
Next i
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 0
End With
'ComboBox15
With Me.ComboBox15
.AddItem "ES30 "
.AddItem "ES50 "
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 1
End With
'ComboBox26
With Me.Combobox26
For i = 0 To 2
.AddItem i
Next i
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 0
End With
'ComboBox27
With Me.Combobox27
For i = 1 To 9
.AddItem i
Next i
.AddItem "0"
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 0
End With
'ComboBox28
For i = 28 To 31
With Me.Controls("ComboBox" & i)
.AddItem "ES30 "
.AddItem "ES50 "
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 1
End With
Next i
End If
'***********************************ComboBox Codes*************************************
'ComboBox1
With Me.Combobox1
For i = 40 To 49
.AddItem i
Next i
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 0
End With
'ComboBox2
With Me.Combobox2
For i = 1 To 9
.AddItem i
Next i
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 0
End With
'ComboBox3
With Me.Combobox3
For i = 4 To 22
.AddItem Format(i, "00")
Next i
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 1
End With
'ComboBox4
With Me.Combobox3
For i = 1 To 12
.AddItem Format(i, "00")
Next i
For i = 21 To 26
.AddItem Format(i, "00")
Next i
For i = 91 To 94
.AddItem Format(i, "00")
Next i
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 1
End With
'ComboBox5
With Me.Combobox5
For i = 1 To 100
.AddItem Format(i, "00000")
Next i
.Style = fmStyleDropDownList
.BoundColumn = 0
.ListIndex = 1
End With
End Sub
Das mit der nicht sichtbaren Combobox kann schon sein.
Fülle die Combobox doch erst, wenn du sie sichtbar machst.
Gruss Rainer