ComboBox füllen wenn Mappe geöffnet wird
Universal
nennt mich blind, aber ich finde nichts passendes zu diesem Thema ... :-(
Ich habe eine ComboBox in einem Arbeitsblatt. Diese Box soll jedesmal gefüllt werden, wenn ich die Arbeitsmappe öffne. Wo ich den Code einfügen muss, weiß ich, nur komme ich nicht dahinter, wie ich auf die ComboBox zugreifen kann. Folgenden Code habe ich schon versucht:
Private Sub Workbook_Open()
Dim Name As Range
Dim cmbO As OLEObject
Set cmbO = ThisWorkbook.Sheets(1).Shapes("ComboBox")
For Each Name In ThisWorkbook.Sheets(1).Range("A4:A8")
cmbO.Object.AddItem Name
Next Name
End Sub
Gruß
Uni
Anzeige