Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

CommandButton nach Zeit X automatisch rücksetzen


Betrifft: CommandButton nach Zeit X automatisch rücksetzen von: Baumann
Geschrieben am: 12.03.2019 13:04:40

ich möchte in einer userform mit mehreren command buttons einen Button so programmieren dass wenn er gedrückt wird ein paar andere buttons ausgegraut werden, dieses Ausgrauen kann mit nochmaligem drücken deaktiviert werden und es soll auch nach x Sekunden Inaktivität auch wieder in den Ausgangzustand springen.
Das rein raus Springen bekomme ich hin aber das mit der Zeit nicht. Während die Zeit abläuft sollen andere Aktionen möglich sein, ein reines warten geht in diesem fall nicht

  

Betrifft: AW: CommandButton nach Zeit X automatisch rücksetzen von: Daniel M.
Geschrieben am: 12.03.2019 14:47:29

Kaum Excel/VBA-Kenntnisse? Klingt eher nach kaum zwischenmenschliche Umgangsformen Kenntnisse.


  

Betrifft: AW: CommandButton nach Zeit X automatisch rücksetzen von: Baumann
Geschrieben am: 12.03.2019 15:13:43

Inwiefern kommen Sie auch diese Einschätzung ?


  

Betrifft: AW: CommandButton nach Zeit X automatisch rücksetzen von: Baumann
Geschrieben am: 12.03.2019 15:17:26

Inwiefern kommen Sie auch diese Einschätzung ?


  

Betrifft: AW: CommandButton nach Zeit X automatisch rücksetzen von: Baumann
Geschrieben am: 12.03.2019 15:20:33

es muss "auf" nicht "auch" heissen


  

Betrifft: AW: CommandButton nach Zeit X automatisch rücksetzen von: Daniel M.
Geschrieben am: 12.03.2019 16:01:03

Diese Frage allein bestätigt meine Vermutung hinreichend.


  

Betrifft: AW: CommandButton nach Zeit X automatisch rücksetzen von: Baumann
Geschrieben am: 12.03.2019 16:14:41

Ich steh auf dem Schlauch, ich habe doch nur ein Frage gestellt. Inwiefern hat dich das beleidigt ?


  

Betrifft: Mit Anhang von: Werni
Geschrieben am: 12.03.2019 16:29:15

Hallo
https://www.herber.de/bbs/user/128331.xlsm

Schau mal in den Anhang
Code in der UserForm1

Option Explicit

Private Sub CommandButton1_Click()
    If CommandButton2.Enabled = True Then
        CommandButton2.Enabled = False
        CommandButton3.Enabled = False
        Start
    Else
        CommandButton2.Enabled = True
        CommandButton3.Enabled = True
    End If
End Sub

Code im Modul1
Option Explicit
Option Private Module
Dim Bol As Boolean

Sub Start()
    Dim xZeit As Date, yZeit As Date
        xZeit = Time
        yZeit = xZeit + (10 / 86400)    '10/86400 sind 10 Sekunden
            Bol = False
                Do
                    DoEvents
                        If Time >= yZeit Then GoTo UMSCHALT
            Loop While Bol <> True
    Exit Sub
UMSCHALT:
        Bol = True
        UserForm1.CommandButton2.Enabled = True
        UserForm1.CommandButton3.Enabled = True
End Sub

Gruss Werni


  

Betrifft: AW: Mit Anhang von: Baumann
Geschrieben am: 13.03.2019 16:27:58

Vielen Dank, ich versuche es mal in meine Anwendung reinzufummeln


Beiträge aus dem Excel-Forum zum Thema "CommandButton nach Zeit X automatisch rücksetzen"