Office: (Office 2016) CommandButton.Enabled ändern

Hallo Zusammen,

ich habe ein Sheet mit diversen CommandButtons, deren Enabled-Wert unter bestimmen Bedingungen aus False gesetzt werden.

Beim "Entsperren", d.h. alle Enabled-Werte wieder auf True setzen, habe ich alle CBs durch eine Schleife laufen lassen. Das klappt.

Aber!! Wenn dann wieder eine der Bedingungen zutrifft, bleibt der entsprechende CB optisch auf True, in den Eigenschaften steht der Wert richtigerweise auf False. Das begreife ich nicht.

Beim Einzelaufruf der CBs, ist alles wie gewollt. Klar sind nur ca. 20 CBs, könnte ich also einzeln machen, aber die Frage nervt mich schon

Danke und schönes RestWE
Jürgen

 

Hallo Jürgen,

kannst Du mal beschreiben was man für Falsa und True machen soll.

Du schreibst von einer Bedingung. Im Code gibt nur Prüfung ob CommandButton.

Klick auf 1 und 2 macht die unenablewd
Klick au 3 oder 4 Enabled.

 

Hi Hajo,

das ergibt sich eigentlich aus den entsprechenden Codes. Wenn der jeweils zugehörige Wert in Spalte M < 1 wird,
geht es auf False (CB1 und CB2). Mit CB3 werden alle CBs wieder auf True gesetzt. Und das ist mein Sorgenkind. Nach Durchlauf dieser Schleife bleiben die CBs aktiv, auch wenn der Werte in Spalte M < 1 wird.

CB4 setzt die CBs einzeln auf True und danach läuft es, wie gewollt.

Gruß
Jürgen

 

Hallo Jürgen,

Ich bin jetzt raus. Du möchtest nicht erklären Deine ersten Beitrag.
Viel Erfolg noch.

Gruß Hajo

 

Hallo Jürgen,

so ist es korrekt:

Code:

Private Sub CommandButton3_Click()
Dim msoCmd As Object
    For Each msoCmd In Me.OLEObjects
        If TypeName(msoCmd.Object) = "CommandButton" Then
            msoCmd.Enabled = True
        End If
    Next msoCmd
End Sub

Schau einfach im Lokalfenster ins Objekt msoCmd.

Gruß Uwe

 

Hallo Jürgen,

es wäre schon hilfreich, wenn du mal beschreiben würdest, was du da erreichen möchtest. das schein mir alles etwas unsauber programmiert zu sein. Zum Beispiel hier:

Code:

Private Sub CommandButton1_Click()
[M9] = [M9] - 1
If fncHolen(Me.CommandButton1.Caption) < 1 Then Me.CommandButton1.Enabled = False
End Sub

Die zweite Zeile kann erst wirken, wenn das Klick-Ereignis ausgelöst wird, das macht keinen Sinn, False müsste ja schon vorher ausgelöst sein.

 

Hallo,

@Uwe: Danke! Das war es, muss ich mir jetzt nur genau anschauen.
@Klaus-Dieter: Ja, das war hier nur zur Anschauung, das ist im Original viel komplexer. Auch dir danke fürs Lesen.

Gruß
Jürgen

 

Hallo Jürgen,

es ist immer gut, wenn man den vollständigen Umfang kennt, das erleichtert die Hilfe.

 

Hallo Jürgen,

so funktioniert auch Dein Test:

Code:

Sub sbTest_so_klappts()
  Dim i As Long
  For i = 1 To 2
    Me.OLEObjects("CommandButton" & i).Enabled = True
  Next i
End Sub

Gruß, Uwe

 

Hi Uwe,

so ähnlich sahen meine ersten Versuche aus. Bin aber immer in diverse Fehler gelaufen.
Dein Code klappt wirklich, danke.

Gruß
Jürgen