Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1792to1796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1792to1796
1792to1796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CB2 starten, wenn CB1 läuft

CB2 starten, wenn CB1 läuft
11.11.2020 12:26:20
Rolf
Hallo und einen schönen Tag,
wenn ich CB1 anklicke, dann soll Label1 kurze Zeit (5 Sek.) sichtbar sein und
in E1 für diese Zeit "1" stehen.
Während dieser 5 Sek. klicke ich CB2.
Wie schaffe ich es, dass "CommandButton2_Click" E1=1 erkennt?
https://www.herber.de/bbs/user/141463.xlsm

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CB2 starten, wenn CB1 läuft
11.11.2020 12:35:50
Matthias
Hallo
Kannst Du mal so Testen:
Private Sub CommandButton1_Click()
Dim i As Integer
Sheets("Tabelle1").Label1.Visible = True
Sheets("Tabelle1").Range("E1") = 1
Application.Wait (Now + TimeValue("00:00:01"))
For i = 1 To 3000
[a5] = i
If i = 1500 Then CommandButton2 = True 'Zähler anpassen
Next
Label1.Visible = False
Sheets("Tabelle1").Range("E1") = 0
End Sub
Anklicken konnte ich CB2 nicht.
Gruß Matthias
AW: CB2 starten, wenn CB1 läuft
11.11.2020 12:42:43
Rolf
Hallo Matthias,
danke für die schnelle Antwort, leider ändert deine Vorschlag nichts am Ergebnis.
Gruß Rolf
AW: CB2 starten, wenn CB1 läuft
11.11.2020 12:49:08
Rolf
Hallo Matthias,
bei meinem erster Versuch machte ich einen Fehler.
Jetzt habe ich deine Erweiterung nochmal getestet - es klappt!
Danke und nochmals schöne Grüße
Rolf
Anzeige
gerne :-) owT
11.11.2020 12:53:47
Matthias
 
AW: CB2 starten, wenn CB1 läuft
11.11.2020 12:57:41
Tobias
Hallo Rolf,
so könnte es funktionieren, ohne dein Excel komplett zu blockieren mit Application.Wait: 
Sub CB1_Click()
Application.OnTime Now + TimeSerial(0, 0, 5), "Label1_Deaktivieren"
Sheets("Tabelle1").Label1.Visible = True
Sheets("Tabelle1").Range("E1") = 1
End Sub
Sub CB2_Click()
If Sheets("Tabelle1").Range("E1") = 1 Then
'''Code
Debug.Print "Test"
End If
End Sub
Sub Label1_Deaktivieren()
Sheets("Tabelle1").Label1.Visible = False
Sheets("Tabelle1").Range("E1") = 0
End Sub
Schöne Grüße
Tobias
AW: CB2 starten, wenn CB1 läuft
11.11.2020 13:54:12
Rolf
Hallo Tobias,
es hat eine Weile gedauert, bis es bei mir geklappt hat.
"Sub Label1_Deaktivieren()" musste ich erst aus Tabelle1 raus in ein Modul stecken, sonst kam stets eine Fehlermeldung.
Jetzt habe ich zwei Lösungen, die beide bestens funktionieren.
Danke und schöne Grüße
Rolf
Anzeige

Links zu Excel-Dialogen

CommandButton Label

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige