Két kombinált dobozom van az 1. lapban. Hozzá kell adnom a lapok listáját a kombinált dobozhoz, ami jól működik. Hozzá kell adnom a 2. lap első oszlopát a kettes kombinált mezőhöz úgy, hogy az első cella legyen a neve ("Név"). Ez a kód működött a UserForm-omnál, a Sheet1 helyett Me-vel, de egyik használata sem működik számomra.
"Az objektum nem támogatja ezt a tulajdonságot vagy metódust" hibaüzenetet kapok.
Kösz,
Private Sub Workbook_Open()
Dim refSheet As Worksheet
Set refSheet = ActiveWorkbook.Sheets(2)
Dim oSheet As Excel.Worksheet
For Each oSheet In ActiveWorkbook.Sheets
Sheet1.ComboBox1.AddItem oSheet.Name
Next oSheet
Dim lastrow As Long
lastrow = refSheet.Cells(Rows.Count, 1).End(xlUp).Row
With refSheet.Columns(1)
Range(Cells(1, 1), Cells(lastrow, 1)).Select
Selection.CreateNames Top:=True
End With
Sheet1.ComboBox2.RowSource = "Name"
End Sub
