CommandButton.Enabled

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: CommandButton.Enabled
von: Norbert
Geschrieben am: 24.06.2002 - 08:42:30

Hallo,

ich habe folgendes Programm:

Private Sub CommandButton11_Click()
Dim i As Integer

CommandButton1.Locked = True

On Error Resume Next
For i = 10 To 20
Controls("Commandbutton" & i).Enabled = False

Next i
CommandButton11.Enabled = True
End Sub

Dieses Programm ist praktisch für die Commandbutton 10-20 gleich. Der einzige Unterschied ist das der jeweilige CommandButton.Enabled = True ist (hier: CommandButton11.Enabled = True)

Kann man das in die Schleife packen, das alle Buttons.Enabled = False werden, außer der, der gerade gedrückt wurde?

Danke Norbert

nach oben   nach unten

Re: CommandButton.Enabled
von: Rainer
Geschrieben am: 24.06.2002 - 12:12:43

Lieber Norbert!

Sind deine Commandbuttons auf einem Tabellenblatt oder in einer Userform?

Lieben Gruß
Rainer


nach oben   nach unten

Re: CommandButton.Enabled
von: Raine
Geschrieben am: 24.06.2002 - 13:18:39

Hallo Norbert!

Du wirst meines Erachtens nicht umhin kommmen, dass du jedem Button ein Click-Ereignis zuweist. Nur ist das mühsam und unnötig für jeden Button die jeweilige Schleife zu programmieren. Schreibe 1 Prozedur in Modul und rufe diese im Click-Ereigneis mit einem Parameter auf, der die jeweilige Schaltfläche beschreibt - .B.:


Private Sub CommandButton10_Click()
    Call cntr_enable(CommandButton10)
End Sub
Private Sub CommandButton11_Click()
    Call cntr_enable(CommandButton11)
End Sub
' ..... usw.

' in Modul:
Sub cntr_enable(cntr As Control)
' Dein Code
Dim As Integer

CommandButton1.Locked = True

On Error Resume Next
For i = 10 To 20
UserForm2.Controls("Commandbutton" & i).Enabled = False

Next i
cntr.Enabled = True

End Sub

Lieben Gruß
Rainer

nach oben   nach unten

Re: Danke
von: Norbert
Geschrieben am: 25.06.2002 - 06:08:22

Hallo Rainer,

Danke. Norbert

Ich Antworte erst jetzt, da unser E-Mail-Server total "eingeschlafen" war, und ich da kam halt keine E-Mail an.


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Nur eine Zelle über InputBox auswählen"