Schreibschutz bei ComboBox in Menüleiste

      Set Button1 = Menue.Controls.Add(Type:=msoControlComboBox, before:=1, temporary:=True)
            With Button1
                  Application.ScreenUpdating = False
                  Application.Calculation = xlCalculationManual
                  
                  'ComboBox ohne Duplikate füllen (MatNr. + Bezeichnung)
                  For Zähler = 2 To Ende
                        If Cells(Zähler, 1) <> Cells(Zähler + 1, 1) Then
                              .AddItem " " & Cells(Zähler, 1) & " >> " & Cells(Zähler, 2) & " >> " & Cells(Zähler, 7) & " >> " & Cells(Zähler, 9)
                              Anzahl = Anzahl + 1
                        End If
                  Next Zähler
                                    
                  Application.Calculation = xlCalculationAutomatic
                  Application.ScreenUpdating = True
                  
                  'ComboBox einstellen
                  .Style = msoComboNormal
                  .Width = 174
                  .DropDownWidth = 440
                  .DropDownLines = 45
                  .Text = "Bitte wählen Sie ein Material aus"
                  .TooltipText = "zur ausgewählten MatNr. springen"
                  .OnAction = "TeilenummerSuchen"
            End With