Dropdown sperren

Bild

Betrifft: Dropdown sperren
von: Rainer
Geschrieben am: 26.10.2003 10:46:24

Hallo,

mit folgendem Makro sperre ich eine Kombobox aus der Steuerelement Toolbox:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
    ComboBox1.Enabled = True
    For Each c In Worksheets("Gesamt").Range("A1:L1")
        If c <> "" Then
            ComboBox1.Enabled = False
        End If
    Next c
End Sub


Nun wäre mir aber das Kombinationsfeld (Dropdown) aus der Symbolleiste Formular lieber als die Kombobox. Ist das möglich?

Gruß Rainer
Bild


Betrifft: AW: Dropdown sperren
von: ChrisL
Geschrieben am: 26.10.2003 11:43:10

Hi Rainer

Die Eigenschaft 'Enabled' ist bei den Formularsteuerelementen m.E. nicht vorgesehen. Wenn es geht, dann nur relativ mühsam mit einer Krücke, weshalb ich die VB Combobox beibehalten würde. Den Code kannst du wie folgt noch ein bischen verbessern.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column <= 12 Then
    If Application.WorksheetFunction.CountBlank(Range("A1:L1")) < 12 Then
    ComboBox1.Enabled = False
    Else
    ComboBox1.Enabled = True
    End If
End If
End Sub



Gruss
Chris


Bild


Betrifft: AW: Dropdown sperren
von: Rainer
Geschrieben am: 26.10.2003 12:07:53

Hallo Chris,

vielen Dank für die Antwort.

Gruß Rainer


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Dropdown sperren"