Schreibschutz bei ComboBox in Menüleiste
30.07.2003 16:23:42
MikeS
mit welcher Eigenschaft kann ich verhindern, daß man Text in das Textfeld
der ComboBox eingeben kann?
Codeauszug:
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
Code eingefügt mit Syntaxhighlighter 2.1
Vielen Dank
MikeS