Commandbutton Enabled=True/False

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Commandbutton Enabled=True/False
von: Dennis
Geschrieben am: 26.09.2003 09:19:42

Guten morgen zusammen!
Kurze Frage: Habe eine Userform mit Buttons deren Ziel jeweils meine Tabellen der Arbeitsmappen sind (Navigation). Jetzt möchte ich den entsprechenden Button auf Enabled=False setzen, wenn dieser Button gedrückt wird, sodass man nur noch in die anderen Tabellen steuern kann und weiß in welcher man gerade arbeitet. Mein Code sieht so aus:


Private Sub CommandButton1_Click()
Application.Goto ("ziel")
CommandButton1.Enabled = False
End Sub


Klappt. Leider bleibt der Button für immer Disabled! Wie kann ich sowas allgemein für alle Buttons lösen? Eine If-Anweisung?
Bild


Betrifft: AW: Commandbutton Enabled=True/False
von: chris
Geschrieben am: 26.09.2003 09:32:00

Hallo Dennis

soll beim Neuladen der userform alles wieder auf true gesetzt werden oder wann?


Private Sub UserForm_Activate()
On Error Resume Next
For i = 1 To 50
Me(CStr("commandbutton" & i)).Enabled = True
Next
End Sub


Gruß
Christian


Bild


Betrifft: AW: Commandbutton Enabled=True/False
von: Dennis
Geschrieben am: 26.09.2003 09:37:05

Nene, ganz simpel: Ich möchte einfach das immer derjenige Button nicht anklickbar ist (grau schattiert), der für die jeweilige Arbeitsmappe zuständig ist. Also wenn ich in Tabelle3 meinen Button für "Tabelle2" drücke, soll der Button "Tabelle3" wieder anklickbar und der Button für Tabelle2 solange nicht mehr anklickbar sein, bis ich eine beliebige andere Tabelle auswähle...Ist das so ok ausgedrückt?


Bild


Betrifft: AW: Commandbutton Enabled=True/False
von: chris
Geschrieben am: 26.09.2003 09:54:46

Hi


Private Sub CommandButton1_Click()
On Error Resume Next
For i = 1 To 50
Me(CStr("commandbutton" & i)).Enabled = True
Next
Application.Goto ("ziel")
CommandButton1.Enabled = False
End Sub



schaltet alle ein und den einen aus
So
gehts
wenn du unterschiedliche namen für deiene commands hast anpassen
Gruß
Christian


Bild


Betrifft: AW: Commandbutton Enabled=True/False
von: Dennis
Geschrieben am: 26.09.2003 10:24:30

Neee, will nicht klappen. Bei zwei Buttons läufts, aber bei 3 versagt Dein Tool. Ich denke das liegt daran das die Variable "i" unbestimmt ist in deinem Code. i ist zwar in der for-SChleife, ändert sich aber nie im Wert...Das muss doch irgendwie lösbar sein, mist


Bild


Betrifft: AW: Commandbutton Enabled=True/False
von: chris
Geschrieben am: 26.09.2003 10:33:54

Hallo

das liegt daran das ich einen objektarray eingebaut habe
wenn deine buttons nicht so aufgebaut sind geht es nicht

das funzt nur dann wenn alle namen gleich sind

commanbutton1
commanbutton2
commanbutton3
usw.


geht einwandfrei bei mir :-)


Private Sub CommandButton1_Click()
On Error Resume Next
For i = 1 To 50
Me(CStr("commandbutton" & i)).Enabled = True
Next
Application.Goto ("ziel")
CommandButton1.Enabled = False
End Sub



Private Sub CommandButton2_Click()
On Error Resume Next
For i = 1 To 50
Me(CStr("commandbutton" & i)).Enabled = True
Next
Application.Goto ("ziel")
CommandButton2.Enabled = False
End Sub



Private Sub CommandButton3_Click()
On Error Resume Next
For i = 1 To 50
Me(CStr("commandbutton" & i)).Enabled = True
Next
Application.Goto ("ziel")
CommandButton3.Enabled = False
End Sub



Private Sub CommandButton4_Click()
On Error Resume Next
For i = 1 To 50
Me(CStr("commandbutton" & i)).Enabled = True
Next
Application.Goto ("ziel")
CommandButton4.Enabled = False
End Sub



Private Sub CommandButton5_Click()
On Error Resume Next
For i = 1 To 50
Me(CStr("commandbutton" & i)).Enabled = True
Next
Application.Goto ("ziel")
CommandButton5.Enabled = False
End Sub



gruß
Christian


Bild


Betrifft: AW: Commandbutton Enabled=True/False
von: Dennis
Geschrieben am: 26.09.2003 10:41:19

Danke jetzt klappts! Was komisch ist, ich wußte dass es ein Array ist und habe die Namen dann auch gleichgelassen (Wegen & i), hat aber zuerst nicht funktioniert. Naja, jetzt klappts Du hast mir sehr geholfen DANKE NOCHMAL!


Bild


Betrifft: :-) kleine Verbesserung mit function
von: chris
Geschrieben am: 26.09.2003 11:18:50

Hallo Dennis
um das ganze ein wenig "hübscher" zu gestalten


Private Sub CommandButton1_Click()
weg = einblenden
Application.Goto ("ziel")
CommandButton1.Enabled = False
End Sub



Private Sub CommandButton2_Click()
weg = einblenden
Application.Goto ("ziel")
CommandButton2.Enabled = False
End Sub



Private Sub CommandButton3_Click()
weg = einblenden
Application.Goto ("ziel")
CommandButton3.Enabled = False
End Sub



Private Sub CommandButton4_Click()
weg = einblenden
Application.Goto ("ziel")
CommandButton4.Enabled = False
End Sub



Private Sub CommandButton5_Click()
weg = einblenden
Application.Goto ("ziel")
CommandButton5.Enabled = False
End Sub



Private Function einblenden()
On Error Resume Next
For i = 1 To 50
Me(CStr("commandbutton" & i)).Enabled = True
Next
End Function


gruß
Christian


Bild


Betrifft: AW: :-) kleine Verbesserung mit function
von: Dennis
Geschrieben am: 26.09.2003 12:01:49

Hey Dankeschön!


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Commandbutton Enabled=True/False"