Userform Activate
27.02.2009 14:17:41
Frank
Ich habe in die Userform eine Mulitseite eingebaut und möchte auf Page 3 die Combobox7 genauso einrichten wie die unten aufgeführte Combobox4. Mein Problem ist nun, wie ich eine weitere Box in diesem Code einbaue. Wie gesagt, sie soll auf denselben Datenbereich zugreifen.
Private Sub UserForm_Activate()
Sheets("B & A").Select
Dim lZeile As Long
Dim lCoBox As Long
With Worksheets("B & A")
With Me.ComboBox4
.ColumnCount = 3
.ColumnWidths = "1 cm; 1 cm; 1 cm"
For lZeile = 4 To Range("BZ94").End(xlUp).Row
.AddItem " "
.List(lCoBox, 0) = Range("BZ" & lZeile).Value
.List(lCoBox, 1) = Range("CA" & lZeile).Value
.List(lCoBox, 2) = Range("CB" & lZeile).Value
lCoBox = lCoBox + 1
Next lZeile
End With
End With
Sheets("B & A").Select
End Sub
Gruß Frank