combobox
07.10.2007 13:39:00
Christopher
habe folgende Frage,
wie kann ich verschiedene Daten in unterschiedliche comboboxen einlesen, welche sich auf verschiedenen Registerkarten befinden. Zur Zeit hab ich das Problem, dass ich immer nur eine combobox (nämlich die erste) mit Daten bestücken kann. Die anderen bleiben trotz analog codierter Datensätze leer.
Private Sub ComboBox1_change()
Dim i As Integer
With ActiveDocument
For i = 1 To .Styles.Count
If .Styles(i).IncludesText = -1 Then
ComboBox1.AddItem .Styles(i).Name
End If
If ActiveDocument.Styles(i).IncludesLine = -1 Then
ComboBox3.AddItem .Styles(i).Name
End If
If ActiveDocument.Styles(i).IncludesFill = -1 Then
ComboBox2.AddItem .Styles(i).Name
End If
Next
End With
ComboBox1.Text = ComboBox1.List(0)
ComboBox3.Text = ComboBox3.List(0)
ComboBox2.Text = ComboBox2.List(0)
End Sub
Private Sub UserForm_Initialize()
With Me.Label25
ComboBox1.AddItem "x1"
ComboBox1.AddItem "x2"
ComboBox1.AddItem "x3"
End With
End Sub
Private Sub Userform_Initialize1()
With Me.Label50
ComboBox3.AddItem "x"
ComboBox3.AddItem "y"
ComboBox3.AddItem "z"
End With
End Sub
...
mfg Christopher