ComboBox
03.03.2006 12:01:52
Uwe
Mit folgendem Code fülle ich eine ComboBox.
Wenn ich Änderungen im Formular2 SpalteA mache werden diese erst nach einem Neustart der UF in der
ComboBox angezeigt.
Wie erreiche ich es dass die CB sofort ohne Neustart der UF die aktuellen Werte beinhaltet?
Gibt es da eine Lösung?
Vielen Dank!
Gruß Uwe
Private Sub UserForm_Initialize()
Dim Zeile As Range
For Each Zeile In Worksheets("Formular2").UsedRange.Rows
If Zeile.Hidden = False And Zeile.Row > 29 Then
ComboBox2.AddItem Worksheets("Formular2").Cells(Zeile.Row, 1)
End If
Next
End Sub
Anzeige